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1, ABSTRACT 

This program exercises the KE11F floating point Instructions 
(rAQD. ESU8. FhUL, PDJV) with random number patterns, The 
answers are cheeked against results obtained using the 
corresponding FORTRAN software routines, About 203 passes 
should be run to establish predablllty, 


2. requirements 


2,1 Equipment 

PDP-11 ( KD 11 A ) standard computer with KE11F option 


2,2 Storage 

The routines use memory locations 0 - 17500, The mao at the 
end of the listings shows the absolute locations of the 
FORTRAN math routines which were assembled separately and 
linked to the main program via I.NKX11 on a OECsystemtl0, 


2,3 Preliminary programs 

maINOEC-11-dbkea-a KEiiF Instruction Tests, 


3, LOADING PROCEDURE 

Use standard procedure for ABS tapes, 


4, STARTING PROCEDURE 


4,1 Control switch settings 

See 5.1,1 (all down for worst ease testing) 


4,2 Starting address 

The program should always be started at 200, 


4,3 Program and/or operator action 

1) Load program Into memory using ABS loader, 

2) Load address 200, 

Set switches (see 5.1,1) A 1 | down for worst case. 






MAInDEC'- 11-0BKE8-A-D KEllF (PDP-11 FIS) EXERCISER PACE 4 

Oescr ! ptl on 


4 ) Press start . 

5) The program will loop and oeM will ring snce every pass, 


5, OPERATING PROCEDURE 


5,1 Operational switch settings 


SW<t5> 

s 

1 

eeet.ee 

HALT on error 

$ W < 1 4 > 

9 

1 

e » » • * « 

SCOPE LOOP 

SW<13> 

9 

1 

e e * f e e 

INHIBIT PRINTOUT 

SW<t2> 

3 

1 

e * t f * e 

INHIBIT TRACE TRAPPING 

SW<11> 

9 

1 

i e ♦ f t t 

INHIBIT ITERATIONS OF SUBTEST 

$W<10> 

9 

1 

♦ t • It ♦ 

BELL ON ERROR 



0 

e e » t * e 

BELL ON PASS COMPLETE 

SW<09> 

3 

1 

e e f e * e 

LOOP ON ERROR 

SW<08> 

3 

1 


LOOP ON TEST IN SW<6I0> 

5W<07> 

.3 

1 

e e r » * e 

INPUT DATA FROM THE TELETYPE 


Caution i SW<8 1 0> are also used for ROM word match with KM11 
maintenance card, 

5,2 Subroutine Abstracts 


5,2,1 TYPIN 

If sw<7> |s on « 0* the program calculates a pseudorandom 
number to be used as Input data. If SW<7> Is on a li the 
program will ask for Incut data from the teletype at the 
beginning pf each pass, The same data Is used with all 
Instructions (FADD* FSUBi FMUUi FDIV) for the entire Pass, 
If SW<7> Is put down after entering the data entry routtnej 
that data Is used as the starting numbers for the random 
number generator, 

The Inogt format ls| 

Type Input data! 

All NNNNNN 
A21 NNNNNN 
81! NNNNNN 
82! NNNNNN 

Where! 

A i = |eft word of first argument 
A2 s right word of first argument 
01 - left word of second argument 
B 2 = right word of seppnd argument 
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Descr I otlon 


1,8, Al, a2 ( ♦ i* t * i / ) Bl# 82 - answer 

NNNNNN = data typed by the operator 

A i , a2» Bl# and 32 must be 16 bit left Justified octal 
numbers, 

E,G. 

42 = 000042 

230002 = not accepted <17 bits) 

4012 = not accepted (8 Is not octal) 

They are assumed to be In floating point format, J,E, bit 
15 of Ai and Bi are the sign bits# bits 7-14 of Aj and Bl 
are the exponents (excess 128 format) and the rest (bits 0«6 
of Al and 81 and a|| of A2 and B2> form the mantissa 
(normalized) less the hidden bit. For more Information read 
the maintenance manual, Al# A2, 81# and B2 are put Into 
RAND. A# RANQ, 8, RAND.C, and RAND.D r espeet 1 ve I y , 


5,2,2 FORTAN 

This routine make use of "polish mode" to link the FORTRAN 
MATH PACKAGE ROUTINES TO CALCULATE THE EXPECTED RESULT, 

LOCATIONS $ ADDi i SADD2 contain addition answer, 

Locations SSUBi# SSUB2 contain subtract answer# 

Locations SMULli SMUL2 contain multiply answer, 

Locations $ D I v 1 # S0IV2 contain divide answer, 

If a floating error occurs (overflow# underflow, or divide 
by zero), these answers are meaningless, The locations 
SaDOPS# SSUBPS, SMULPS# or SDJVPS contains 340 and SADDER, 
SSUBER# SMULER, °f SDJVER, contain the conditions codes of 
the error, 


5,2,3 SCOPE 

This subroutine call Is placed between each subtest in the 
test section, It records the starting address of each 
subtest as It Is oe|ng entered In location "LAPS", If a 
scope loop Is requested# the current subtest will be looped 
upon. SW<11> on a 1 Inhibits Iteration of subtests, The 
contents of LADS may be used to determine the last subtest 
successfully completed, 
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5,2,4 HIT 

This routine prints out an error message (Sea 6,1), To 
Inhibit typeouts, DU* SW<13> on • 1, 


5,2,5 TRTRAP 

If SW<12> I* on a 0| the T-fclt will ba sat on alternate 
basses . Whan the T-blt is sat, the processor traps after 
each Instruction, The first Instruction executed uopn 
trapping Is an "RTT" which returns to the Interrupted 
sequence of Instructions, This sequence Is continued until 
the end of the program |s reached. 


5,2,6 TRAPCATCHER 

a ",*2" « "HALT" sequence is repeated from 0 • 776 to cateh 
any unexpected traps, Thus any unexpected traps or 
InteruPts will MALT at the vector ♦ 2, 


5,2,7 FLOATING POINT TRAP (to 244) 

All tests set the floating point trap vector (244) to point 
to the Instruction following the Mo* tint Point Instruction, 
Thus, whether or not a trap occurs Is only detected If the 
data or the stash polnter(s) are wrong, 


6, ERRORS 


6,1 Error printout 

There are two formats for error typeoutl one for normal 
numbers and one for floating errors (overflow, underflow and 
divide by zero), 


6,1,1 The normal format (when no floating point error Is 
indicated) |s as follows! 


aaaaaa s 



PSW 

SP 

ANSWER 

EXPECTl 

NNN 

NNN 

NNNNNNi NNNNNN 

GOT! 

NNN 

NNN 

NNNNNN, NNNNNN 

Where ! 
AAAAAA s=> 

PC of 

HIT 

1 nstruct ! op 

MMMMMM ss> 

Incut 

data 

(RAND.Ai RANO.B, RAND.C* RAND,0) 

s ==> 

type 

of operation balng testae! (*i*#*# or /) 
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NNNNNN ss> results 

PSW s processor status word 

SP = stack pointer (not necessarily R6> 

ANSWER s resulting answer off the staek 


6,1.2 When a floating point error Is Indicated (overflow, 
underflow, or divide by zero) the format Is as fel lows* 

A A A AAA MMMMMM, HMMMMM S HMMMMM, MMMMMM 

PSW SP ANSI ANS2 ANS3 ANS4 ANS5 ANS6 
EXPECT! NNN NNN NNNNNN NNNNNN nnnnnn NNNNNN NNNNNN NNNNNN 
GOT! NNN NNN NNNNNN NNNNNN NNNNNN NNNNNN NNNNNN NNNNNN 

Wh 8 f 8 * 

aaaaaa *a> pc of hut instruction 

HMMMMM *S> Inout data (RAND, A, RaND,Bi RAND.C, RAND,D) 

S ==> type of operation being tested (*»-,*» or /) 

NNNNNN a«> results 

PSW « processor status word 

Sp s stack pointer (not neoessarl ly R6) 

ANSI ; PC of Interuoted Instruction (should be 
FJS) 

ANS2 f psw at Interuot time 

ANS3 * input data (RANO.C) 

ANS4 e " " (RAND.O) 

ANS5 s " " (RANQ.A) 

ANSd e " " (RANDiB) 

To find the falltns teet, look at the listing above the 
address typed. 


6,2 Error recovery 

Restart at 200 


6,3 Error count 

An error count Is kept In "ERRORS" ( LOC 1002), It Ts 
cleared by restarting at 200, 


7, restrictions 

None 
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8, miscellaneous 


8,1 Execution time 

A bell will ring within 5 seconds with ell switches down, 
More then 208 passes should be run to Insure s wide varleey 
of number patterns. 


8,2 Stack Pointer 

Stack Is Inltelly set to 604 


8,3 Pass counter 

a 32 bit <2 words) Pass count la kept In "PCNT" U.OC 
1004,1006), It Is eleartd by restartlna at 200, 


8,4 Power Fall 

Each test e»n b* power failed with no errors, To use, start 
the test at usual and power down then up at any time, The 
program should typ® "POWER" and continue to run from where 
power fall Interupted with no other tyseouts. 


9 , program description 

This program tests all the FIS Instructions on the KC11F 
using all registers except 7 for the "stack pointer"', The 
program has many subtests (the code between 2 SCOPE 
statements) which are run 256 times before continuing to the 
next, sw<ll> on a 1 causes each aubtest to be run only 
once, The address icnt UQC 1000) contains the iteration 
count In the left byte and the teet number In the right 
byte, All the sybtests ehould be run sequentially by 
starting at 200 not by starting at the beginning of the 
subtast, To |oop on a particular subtest, put the test 
number (see listing) In SW<$!0> of the switch register and 
SW<8> on a 1, This test wj 1 1 be looped upon until SW<8> Is 
put on a 0 or the right byte Is changed, If the test ts 
non-ex I stant, the program will be run as usual, 

The FORTRAN math routines, which art used to calculate the 
correct anewers, were taken unmodified from the PDP-11 
FORTRAN package and assembled as separate modules, They 
were Mnkfd to the main programs via UNKXH on a 
OECsystom-10 whloh produces a binary tape In the normal 
absolute format, Thus, the program loads and runs Just like 
any other diagnostic program. 


> 
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DBKEBA .'PH switch SETTINGS and error typeout format 


4 

2 000020 

3 

4 

5 

6 
7 
B 
9 


.TITLE MAINDEOllwDBKEB-A KE41F (P0P«11 FJS) EXERCISER, 

.ASECT 

, GLOBL $ADR,ISBR,SMLR,SDVR,SERR,SERRA 

{COPYRIGHT 1972. OJGJTAL EQUIPMENT CORP,. MAYNARD. MASS 

{PROGRAM BY KEN CHAPMAN 

.REM! 

SWITCH USE 


10 

11 

12 

13 

14 

15 

16 
17 
IS 

19 

20 
21 
22 

23 

24 

25 

26 
27 
26 

29 

30 

31 

32 

33 

34 

35 

36 

37 
36 

39 

40 

41 

42 

43 

44 

45 

46 

47 
46 

49 

50 

51 

52 

53 


7 

8 

9 

10 

11 

12 

13 

14 

15 


TTY DATA JNPUT 

LOOP ON TEST JN SW<6I0> 

LOOP ON ERROR 

0- BEU ON PASS COMPLETED 

1- BELL ON ERROR 
INHIBIT ITERATIONS 

inhibit trace trap 

INHIBIT ERROR TYPEOUTS 
LOOP ON TEST 

halt on error 


ERROR MESSAGE FORMATS! 

1, WHEN NO FLOATING POINT ERROR IS JNPICATEO 

AAAAAA MMMMMM, MMMMMM S MMMMMM . MMMMMM 



PSW 

SP 

ANSWER 

EXPECT l 

NNN 

NNN 

NNNNNN.NNNNNN 

got: 

NNN 

NNN 

NNNNNN, NNNNNN 


WH£RE I 

AAAAAA **> PC OF HLT INSTRUCTION 

MMMMMM »«> INPUT DATA (RANO.A, RANO.B, RANO.C, RAND.O) 

S «■> TYPE OF operation BEING TESTED OR /) 

NNN »»> RESULTS 

P§W « PROCESSOR STATUS WORD 

SP « STACK POINTER (NOT NECESSARILY R6J 

ANSWER" RESULTING ANSWER QPF THE STACK 


2, when a floating point error is indicated (overflow, underflow, 

OR DIVIDE BY 2ERO)i 


AAAAAA 

MMMMMN 

1 , MMMMMM S MMMMMMjMMMMMM 





PSW 

SP 

ANSI 

ANS2 

ANS3 

ANS4 

ANS5 

ANS6 

EXPECT 1 

NNN 

NNN 

NNNNNN 

NNNNNN 

NNNNNN 

NNNNNN 

NNNNNN 

NNNNNN 

GOT S 

NNN 

NNN 

NNNNNN 

NNNNNN 

NNNNNN 

NNNNNN 

NNNNNN 

NNNNNN 


WHERE I 
AAAAAA, 


MMMMMM, S, NNN, PSW, AND §P ARE THE SAME AS ABOVE, 
ANSI § PC OF JNTERUPtED INSTRUCTION (SHOULD BE FJS) 
ANS2 - PSW AT JNTERUPT t J ME 
ANS3 b JNPUT DATA (RAND', C) 

ANS4 b " ( RAND', D ) 

ANS5 b " « (RAND', A) 

ANS6 s " " < RAND'. B » J 


) 
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dbkeba.pu equalities 


54 

104400 

SC OPE ■ 

TRAP 

55 

104000 

HIT* 

EMT 

56 

000004 

TYPE* 

JOT 

57 

177776 

PSs 

177776 

58 

177570 

SWR* 

177570 

59 

177570 

DISPLAY 

sSWR 

60 

000007 

BELL 8 

7 

61 

000000 

R0s 

X0 

62 

000001 

Rif 

XI 

63 

000002 

R2* 

X2 

64 

000003 

R3f 

X3 

65 

000004 

R4* 

X4 

66 

000005 

R5» 

X5 

67 

000005 

TTY 8 

X5 

68 

000006 

SP« 

X6 

69 

000007 

PC 8 

X7 

70 

100000 

SW15 8 

100000 

71 

040000 

SW14» 

40000 

72 

020000 

SW13* 

20000 

73 

010000 

SW12» 

10000 

74 

004000 

SW11 8 

4000 

75 

002000 

8W10* 

2000 

76 

001000 

SM09* 

1000 

77 

000400 

SW08* 

400 

7# 

000001 

BIT0 9 

000001 

79 

000002 

BIT1 s 

000002 

80 

000004 

BIT2 * 

000004 

81 

000010 

BJT3 a 

000010 

82 

000020 

BJT4 • 

000020 

83 

000040 

BIT5 1 

000040 

84 

000100 

BJT6 « 

000100 

85 

000200 

B|t7 1 

000200 

86 

000400 

B|T8 ■ 

001400 

87 

001000 

B | T9 a 

001000 

88 

002000 

BIT 10 8 

002000 

89 

004000 

ilTll s 

004000 

90 

010000 

8IT12 • 

010000 

91 

020000 

8JT13 8 

020000 

92 

040000 

ait 14 « 

040000 

93 

100000 

BjTlf * 

100000 

94 

000000 

LEVEL0 

i 000 

95 

000040 

LEVEL! 

8 040 

96 

000100 

LEVELS 

f 100 

97 

000140 

LEVELS 

8 140 

98 

000200 

LEVEL4 

8 200 

99 

000240 

LEVELS 

f 240 

100 

000300 

LEVEL6 

8 300 

101 

000340 

LEVEL? 

8 340 



o 
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102 

103 

104 

105 

106 
107 
106 

109 

110 
111 
112 

113 

114 

115 

116 

117 

118 

119 

120 
121 


000000 


1 * 

0 


j TRAP CATCHER FROM 0 • 776 

000200 


.3 

200 



? 00200 000167 

000604 


JMP 

BEGJN 

| JUMP TO STARTING ADDRESS OF PROGRAM 

000204 
000204 000167 

000736 

.3 

204 

JMP 

START 

(RESTART APDRESS 

300600 



600 




JThE FOLLOW I NG LOCATIONS ARE USED rOR ThE STACKS, R6 JS INITIALLY SET 
j TO 604 ( ST ACK0 ) i AS ARE THE OTHER REGISTERS <R0 THRU R5) WHEN 

I THEY ARE TO BE USED AS THE FLOATING POINT STACK POINTER, 

S THE DATA IS PUT DIRECTLY ONTO THE STACK» NOT BY PUSHES', 

J IF NO ERROR OCCURES THE STACK POINTER * ANY REGISTER) IS POINTING 

I TO 610 (ANSI), IF AN ERROR OCCURESi R6 IS POINTING TO 6&4, 

j so THE TRAP PUTS THE RETURN ADDRESS AND PS IN 600 (STKl) 

J ANO 602 (STK2) RESPECTIVELY, 


123 

000600 

000000 

STKl * 

0 


124 

000602 

000000 

STK2 ! 

0 


125 

000604 

000000 

STK35 

3TACK0I 

0 

126 

000606 

000000 

STK4J 

STACK2I 

0 

127 

000610 

000000 

STK5: 

STACK# I 

ANSI! 

128 

000612 

000000 

STK6I 

STACK 61 

ANS2I 

129 

000614 

000000 

SPSWI 

0 


130 

000616 

000000 

SSPJ 

0 


131 

132 

000620 

000000 

rand, ai 

0 


133 

000622 

000000 

RANO.BS 

0 


134 

000624 

000000 

RANO.C* 

0 


135 

000626 

000000 

RAND.PS 

0 


136 

137 

0 00630 

000000 

SAOOPSi 

0 


138 

000632 

000000 

SADOII 

0 


139 

000634 

000000 

SA0Q2I 

0 


140 

000636 

000000 

SADDER! 

0 


141 

142 

000640 

000000 

ISUBPS* 

0 


143 

000642 

000000 

SSUBII 

0 


144 

000644 

000000 

SSUB2I 

0 


145 

000646 

000000 

SSUBERi 

0 


146 

147 

000650 

000000 

SMULPSl 

0 


148 

000652 

000000 

SMUltl 

0 


149 

000654 

000000 

SMUL2I 

0 


150 

000656 

000000 

SMULER! 

0 


151 

152 

000660 

000000 

SO I VPS s 

0 


153 

000662 

000000 

SOI VI 1 

0 


154 

000664 

000000 

S0IV2I 

0 


155 

000666 

000000 

SDIVERi 

0 
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156 







157 

000670 

000000 



SAVSTK« 

0 

158 

700672 

000000 



RNDFLGJ 

0 

159 







160 







161 

020674 

105367 

177726 


RAND4$ : 

DECB 

162 

700700 

066767 

177716 

177712 


ADO 

163 

700706 

005567 

177714 



ADC 

164 

700712 

066767 

177706 

177702 


ADO 

165 

700720 

005567 

177700 



AOC 

166 

e00724 

066767 

177676 

177672 


ADO 

167 

700732 

005567 

177664 



ADC 

166 

700736 

066767 

177656 

177662 


ADO 

169 

700744 

005567 

177650 



ADC 

170 

700750 

000207 




RTS 

171 







172 







173 

A 7 A 

700752 

000006 



YESRTI 

RTT 

174 

175 

e00754 

104000 



FISTRPI 

*lt 

176 

700756 

000002 




RTI 

177 
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[FOR Ft AGS TO KEEP TRACK OF RQyNOJNG 


RAND 1 0 IINSURC A(.t *EROES WORKS 

RANQ.Bi RAND , A 
RAND i D 

RAND, Ci RANO.B 

rand.c 

RAND , Di RAND', C 
RAND.B 

RAND, A, RAND.O 
RAND, A 
PC 


[TRACE TRAP SERVICE ROUTINE 
IERRONIOUS FIS TRAP 
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DBKE3A.P11 SETUP AREA 


170 

179 001000 ,i 1000 


180 

181 

?0i000 

000000 



ICNl: 

0 


IJTTERATION COUNT (HI BYTE)) TEST # <L° B *TE> 

182 

£01002 

000000 



ERRORS! 

g 


(ERROR COUNT LOCATION 

183 

£01004 

000000 

000000 


PONT! 

0,0 


1 PASS COUNT LOCATION 

184 

185 

£01010 

012706 

000604 


BEGIN) 

MOV 

#$TACK0,SP 

I'SET UP STACK 

186 

£01014 

012737 

000752 

000014 


MOV 

#YESRT,##14 

t se t up Trace trap 

187 

£01022 

012700 

000020 



MOV 

#20, R0 


180 

£01026 

012720 

015256 



MOV 

#,IOT,(R0)4 

1 SET UP 10T VECTOR 

189 

£01032 

012720 

000340 



MOV 

#340, (R0)* 


190 

£01036 

012720 

015536 



MOV 

#PDQWNS, <R0>* 

l SET up POWER PAIL vector 

191 

£01042 

012720 

000340 



MOV 

#340, (R0)* 


192 

£01046 

012720 

014020 



MOV 

#HITS,(R0}* 

(SET EMT VICTOR 

193 

£01052 

012720 

000340 



MOV 

#340, (R0)* 


194 

£01056 

012720 

013644 



MOV 

#SC0P|S,<R0>* 

I SET TRAP VECTOR 

195 

£01062 

018720 

000340 



MOV 

#340, (R0>* 


196 

£01066 

012737 

000754 

000244 


MOV 

#rjSTRP,»«?44 

1 SET UP r IS VICTOR 

197 

£01074 

012737 

000340 

000246 


MOV 

#340, ##246 


190 

£01102 

012767 

123456 

177510 


MQV 

#123456, RAND, A 

(PRIME THE RANDOM NUMBER GENERATOR 

199 

£01110 

012767 

107654 

177504 


MOV 

#107654, RANO‘,8 


200 

£01116 

012767 

070707 

177500 


MOV 

#070707, RAND, C 


201 

£01124 

012767 

125252 

177474 


MOV 

#125258, RAND, 0 


202 

£01132 

005067 

177644 



CL« 

ERRORS 

(CLEAR ERROR COUNTER 

203 

£01136 

005067 

177642 



CLP 

PCNT 

(CLEAR PASS COUNTER 

204 

£01142 

005067 

177640 



clr 

PCNT+2 


205 

£01146 

012706 

000604 


START) 

M0V 

#STACK0,SP 

(SET UP STACK 

206 

£01152 

012737 

000140 

177776 


MQV 

#140, ##PS 

(SET UP PROCESSOR STATUS 

207 

£01160 

005067 

177614 



CLR 

ICNT 


200 

£01164 

005067 

012622 



CLR 

LAOS 


209 

£01170 

005067 

17747$ 



CLR 

RNDFLS 

(CLEAR TH| ROUNDING FLAGS 

210 

£01174 

105737 

177570 



TSTB 

9#gWR 

ICME&K FOR TTY INPUT 

211 

£01200 

100403 




BMJ 

TYPJN 


212 

£01202 

004767 

177466 



JSR 

PCi RAN04S 


213 

£01206 

000464 




BR 

rORTAN 

liRANCH TO ROUTINE TO CALCULATE ANSWERS 

214 

215 





i the following 

ROUTINE accepts 

DATA FP3M THE TELETYPE', 

216 





I 

THE FORMAT IS FIXED) 

A1,A2 61,82’, 

217 





1 

THE PROGRAM ASKES FOR ! 

ONE ARC', '«’^NT AT A TIME, ANQ RE- ASKES 

210 
0 4 0 





1 

when invalid data is entered, 

CXT 

220 

£01210 

000004 

001214 


TYPIN! 

type, 



22J 

£01214 

005015 

054524 

042520 


.ascii 

<15><12>"TYPE 

INPUT DA? A 1 n <15><125 

222 

£01222 

044440 

050116 

05212? 





223 

001230 

042040 

052101 

035101 





224 

£01236 

005015 

000 






225 


001242 




.EVEN 



226 

£01242 

000004 

001246 


i$: 

type, 

, *2 


227 

£01246 

030501 

020072 

000040 


.ASCII 

"AH " 


223 

£01254 

004567 

011502 



JSR 

R5, REAQIN 

1 ACCEPT FIRST ARGUEMENT FROM THE TfY 

229 

£01260 

000620 




RAND, A 



230 

£01262 

103752 




8CS 

TYPIN 


231 

£01264 

000004 

001270 


2$: 

TYPE, 

,*? 




MAIN0EC-li-0BKE8*A KEllP <P0P*11 FIS) EXERCISER, 

DBKEBA.PU SETUP AREA 


232 

001270 

031101 

020072 

000040 


, ASCI 2 

233 

001276 

004567 

011460 



JSR 

234 

001302 

000622 




RAND , B 

235 

001304 

103767 




BCS 

236 

001306 

301340 




BNE 

237 

001310 

000004 

001314 


3$: 

TYPE, 

238 

001314 

030502 

020072 

000040 


,ASC!Z 

239 

001322 

004567 

011434 



JSR 

240 

001326 

000624 




RAND, C 

24t 

001330 

103767 




BCS 

242 

001332 

001326 




BNE 

243 

001334 

000004 

001340 


4 $: 

TYPE, 

244 

001340 

031102 

020072 

000040 


.ASCIZ 

245 

e01346 

004567 

011410 



JSR 

246 

001352 

000626 




RAND , D 

247 

001354 

103767 




BCS 

248 

001356 

001314 




BNE 

249 







250 

001360 

005067 

177244 


fqrtans 

CLR 

251 

001364 

005067 

177250 



CLR 

252 

001370 

005067 

177254 



CL« 

253 

Oft A 

001374 

005067 

177260 



CLR 

255 

001400 

004467 

011460 



JSR 

258 

001404 

013044 




SPUSH 

257 

001406 

000000G 




SADR 

258 

001410 

013066 




SPOPAO 

259 

001412 

013044 




SPUSH 

260 

001414 

000000G 




S$BR 

261 

001416 

013144 




SPOPSB 

262 

001420 

013044 




SPUSH 

263 

001422 

000000G 




smlr 

264 

001424 

013222 




SPOPML 

265 

001426 

013044 




SPUSH 

266 

001430 

0000006 




SOVR 

267 

001432 

013300 




SPOPOV 

268 

001434 

013412 




SEXIT 

269 







270 

001436 

104400 




SCOPE 



MACYU.620 22*AU5i72 ll|40 PAGE * 


"A2| " 

R5, READIN | ACCEPT SECOND ARGUEHENT FROM THE TTY 
2S 

TYPJN 

,*2 

"B|{ " 

R5, READIN /ACCEPT THIRD ARGUEMENT FROM THE TTY 

3S 

TYPIN 

.*2 

"B2s •' 

R5, READIN /ACCEPT FOURTH ARGUEHENT FROM THE TTY 

4$ 

TYPIN 

SAPOPS /CLEAR AU THE PS SAVE LOCATIONS 

SSUBPS 

SMULPS 

SOI VPS 

X4, SPOLSH lENTER PPLJSH MODE 

/PUSH THE 8ATA ONTO THE STACK 
iFORTAN ADO ROUTINE 
/SAVE THE ADO ANSWERS 
/PUSH THE DATA ONTO THE STACK 
/FORTRAN SUBTRACT ROUTINE 
(SAVE THE SUBTRACT ANSWERS 
/PUSH THE DATA ONTO THE STACK 
(FORTRAN MULTIPLY ROUTINE 
(SAVE THE MULTIPLY ANSWERS 

/push the data onto the stack 

(FORTRAN OIVJOE ROUTINE 
/SAVE THE DIVIDE ANSWERS 
(EXIT POLISH MODE 


w 




MAIN0EC-ll-DBKE3*A 
OBKEBA.PH TEST %’• 

271 

272 

273 

274 

275 

276 

277 

278 £01440 012730 

279 £01444 004767 

280 

281 £01450 300240 

282 £01452 075000 

283 

284 £01454 013767 

285 £01462 010067 

286 £01466 026767 

287 £01474 001023 

288 

289 £01476 105767 

290 £01502 100464 

291 

292 £01504 012767 

293 £01512 026767 

294 £01520 001401 

295 £01522 104000 

296 

297 £01524 026767 

298 £01532 001004 

299 £01534 026767 

300 £01542 001515 

301 £01544 032767 

302 £01552 001022 

303 £01554 052767 

304 £01562 062767 

305 £01570 005567 

306 £01574 102334 

307 £01576 000257 

308 £01600 000262 

309 £01602 013767 

310 £01610 812767 

311 £01616 000723 

312 

313 £01620 132767 

314 £01626 001010 

315 £01630 152767 

316 £01636 162767 

317 £01644 005667 

318 £01650 104000 

319 

320 £01652 000451 

321 

322 £01654 012767 

323 £01662 026767 

324 £01670 001401 


KEUF (PDP-11 PiS) EXERCISER. MACYU,620 22»AUCi72 H|40 PAGE 7 

EXERCISE PADD R0 


**«»#*«»»»»»*»* ••»*9«»*S»*»***»»* ### ****®********** # * 0# *****®******** 

j TEST IS EXERCISE PADD (POP-ll FLOATING ADD INSTRUCTION) 

I RAND, A, RAND, B * RAND , C, RAND , D * ANSI, ANS| 

{ STACK POINTER i R0 

1 »«»»*»#•»*»»»«»*«**»*«»«»•*»*»*****♦*»*»•***********•******************* 


000604 


TSTli 

MOV 

PSTACK0 

iRI 

I SET up the stack pointer 

012130 



JSR 

PC. 

PUSHR 

j PUT THE DATA ON THE STACK 




NOP 







PADD* 

Ri 


I FLOAT I NG ADD ON THE R0 STACK 

177776 

177132 

% S: 

MOV 

P#PS, 

spsw 

1 SAVE PROCESSOR STATUS 

177130 



MOV 

R0» 

SSP 

3 $AVE THE STACK POINTER 

177136 

177120 

6S ? 

CMP 

SADDPS, 

SPSW 

t CHECK THE PROCESSOR STATUS 




8NE 

4$ 


j Q0 CHECK POR ROUNDING ERROR 

177112 



TSTB 

SPSW 


I CHECK POR ERROR 




BMJ 

2$ 


1 BRANCH IP ERROR 

000610 

177156 


HQV 

PSTACK4 

, SAVSTK 

j SAVE PROPER STACK ADDRESS FOR TYPING 

177152 

177076 


CMP 

SAVSTK, 

SSP 

3 CHECK THE STACK POINTER 




SEQ 

s *4 


{BRANCH IF OK 




HIT 



1 STACK POINTER NOT EQUAL TO *Sf ACM 

177102 

177056 


CMP 

SADDli 

ANSI 

/CHECK THE ANSWER 




BNE 

4S 



177074 

177050 


CMP 

SADD2, 

ANS2 

('CHECK THE ANSWER 




SEC 

3$ 



000002 

177120 

411 

BIT 

#B!T1, 

RNBFLS 

I0SECK THE ROyNDIN® FLAG 




BNE 

51 



00000? 

177U0 


S|S 

#BITi s 

RNOriufi 

I'SfeV RfiUNgiNft FLAG 

000001 

177044 


ADD 

ill 

SAD02 

» JWSRtMENf FORTRAN ANSWER 

177036 



ADC 

SA5D1 


i ADD carry 




SVC 

8$ 


1 BRANCH S r NO OVERFLOW 




CCC 



/Cl’EA" AL„ CONDITION CODES 




SEV 



{SIT ; .iBp 

177776 

177026 


MOV 

»#PS, 

SADDER 

{SET f' f - FOR OVERFLOW 

080340 

177012 


MOV 

*340, 

SADDPS 

1 SET T W- PSW 




BR 

6S 


/TRY : ‘aiN 

000082 

177045 

5% l 

BJ78 

*bjti« 

RNOFt.S*l 

, | C H E w K ■•■EROUNDING" FLAG 




BNE 

7$ 


IBRANFK fe. SET 

000002 

177035 


B I SB 

{ T1 i 

RNDPI.G+1 

, | SET "DEFO'INO I NG" FLAG 

000001 

176770 


SUB 

#1 . 

SA0D2 

{RESTORE ORIGINAL ANSWER 

176762 



SBC 

SADD1 


{Subtract carry 



7$ 5 

HIT 



{WRONG PSW OR ANSWER 




BR 

3$ 



000604 

177006 

2%t 

MOV 

#ST ACK0 

.SAVSTK 

{SAVE S’ aCK ADDRESS FQR T Y F ‘ N F 

177002 

176726 


CMP 

SAVSTK, 

SSP 

1 CHECK THE -TACK POINTER 




BEQ 

! ^4 


/branch ir ok 



MAJNDEC-il-DBKEB.A 


OBKEBA.PU 

TEST 1) 

325 

>01672 

104000 

326 



327 

001674 

022767 

328 

001702 

001401 

329 

001704 

104000 

330 



331 

001706 

026767 

332 

001714 

001401 

333 

001716 

104000 

334 



335 

001720 

026767 

336 

001726 

001401 

337 

001730 

104000 

336 



339 

001732 

026767 

340 

001740 

001401 

341 

001742 

104000 

342 



343 

001744 

026767 

344 

001752 

001401 

345 

001754 

104000 

346 



347 

001756 

026767 

348 

001764 

001401 

349 

001766 

104000 

350 



351 

001770 

012716 

358 

001774 

000002 

353 



354 

001776 

104400 

359 




KEllf (PDP-11 F!S| EXERCISER, 



EXERCISE P ADO 

R0 

HLT 

001454 

176676 

CMP 

BEQ 

hlt 

176724 

176666 

CMP 

bed 

hlt 

176700 

176656 

CMP 

BEQ 

hlt 

176670 

176646 

CMP 

BEQ 

HLT 

176650 

176636 

CMP 

BEQ 

HLT 

176640 

176626 

CMP 

BED 

HLT 

001776 


MOV 

RT! 


3$: 

SCOPE 


\ 



MACY11.62B 22-AUG*72 il|40 PACE 8 


/STACK POINTER FOULED UP 

/CHECK THE RT| ADDRESS ON THE STACK 
IBRANCH IF OK 

/RTJ ADDRESS NOT EQUAL TO #1S 

ICHECK THE PSW ON ThE STACK 

j BRANCH IF OK 

jRTI PSW NOT EQUAL TO 200 

/CHECK THE DATA ON THE STACK 
/BRANCH If OK 
J STK3 NOT EQUAL TO RAND , C 

(CHECK THE DATA ON THE STACK 

/BRANCH IF OK 

|'5?K4 NOT EQUAL TO RANO.O 

/CHECK THE DATA ON THE STACK 

/BRANCH IF OK 

(STK5 NOT EQUAL TO RAND, A 

(CHECK THE DATA ON THE STACK 

(BRANCH IF OK 

(STK6 NOT EQUAL TO RANO.B 

(RESET THE STACK 
(RESTORE THE STATUS (T*BIT> 



#1S, STK1 


SADDER, STK2 
,44 


RANQ.C, STK3 
,*A 


RAND , D i STK4 
,*4 


RAND, A, STK5 
,*4 


RANO.B, STk6 
,*4 


#3S, (SR) 



MAINDEC-U.OBKEB.A 
DSKEBA.Pil TEST 2: 

356 

357 
356 

359 

360 

361 

362 

363 £02000 012701 

364 002004 004767 

365 

366 £02010 000240 

367 e02012 075011 

366 

369 £02014 013767 

370 e02022 010167 

371 £02026 026767 

372 £02034 001023 

373 

374 £02036 105767 

375 £02042 100464 

376 

377 £02044 012767 

378 £02052 026767 

379 £02060 001401 

360 £02062 104000 

381 

382 £02064 026767 

383 £02072 001004 

384 £02074 026767 

385 £02102 001515 

386 e02104 032767 

387 £02112 001022 

388 £02114 052767 

389 £02122 062767 

390 £02130 005567 

391 £02134 102334 

392 £02136 000257 

393 £02140 000262 

394 £02142 013767 

395 £02150 012767 

396 £02156 000723 

397 

398 £02160 132767 

399 £02166 001010 

400 £02170 152767 

401 £02176 162767 

402 £02204 005667 

403 £02210 104000 

404 

405 £02212 000451 

406 

407 £02214 012767 

408 £02222 026767 

409 £02230 001401 


KE11F (PDP-11 HS) EXERCISER, MACY11,620 22.AU5-72 11 1 40 PAGE 9 

EXERCISE FSU8 R1 






(TEST 

21 

EXERCISE FSU8 

(PDP-11 FLOATING SUBTRACT INSTRUCTION) 



1 

RAND, A 

i RAND ,9 * 

RAND , C 

,RANP,0 * ANSI , ANS2 



i 

J «*««< 

STACK 

>»»»«*«»* 

POINTER = 

Rl 

>••••••< 


000604 


TST2! 

MOV 

PSTACK0, 

Rl 

1 SET UP THE STACK POINTER 

011570 



JSR 

PC. 

PUSHR 

|PUT THE DATA ON THE STACK 




NOP 

FSU8* 

R1 


IPLOATING SUBTRACT ON THE Rl STACK 

177776 

176572 

IS! 

MQV 

0#PS, 

SPSW 

(SAVE PROCESSOR STATUS 

176570 


MOV 

Rl. 

SSP 

jSAVE THE STACK POINTER 

176606 

176560 

6$ : 

CMP 

SSUBPS, 

SPSW 

) CHECK THE PROCESSOR STATUS 


BNE 

4S 


ICO CHECK FOR ROUNDING ERROR 

176552 



TSTB 

SPSW 


ICHECK FOR ERROR 



BMI 

2$ 


j BRANCH IF ERROR 

000610 

176616 


MQV 

PSTACK4, 

SAVSTK 

ISAVE PROPER STACK ADDRESS FqR TYPING 

176612 

176536 


CMP 

SAVSTK, 

SSP 

ICHECK THE STACK POINTER 


8EQ 

• ** 


I'BRANCH IP OK 




HIT 



iSfACK POINTER NOT EQUAL TO #STACM 

176552 

176516 


CMP 

SSUBi. 

ANSI 

ICHECK THE ANSWER 




BNE 

4$ 



176544 

176510 


CMP 

SSUB2. 

AN32 

ICHECK THE ANSWER 



beq 

3$ 



000004 

176560 

4| ! 

BIT 

PBJT2, 

RNDFUG 

ICHECK THE ROUNDING PLAG 




BNE 

5S 


1 SET ROUNDING PLAG 

000004 

176550 


BIS 

#BIT2i 

RNOFLQ 

000001 

176514 


ADO 


SSUB2 

| INCREMENT FORTRAN ANSWER 

176506 



ADC 

SSUBI 


1 ADD CARRY 



BVC 

6S 


ibranch ip no overplow 




ccc 



ICUEAR ALL CONDITION CODES 




SEV 



1 SET V.8JT 

177776 

176476 


MOV 

e*PS, 

SSUBER 

ISET UP PSW FOR OVERFLOW 

000340 

176462 


MOV 

#340, 

SSUBPS 

1 SET UP TRAP PSW 




BR 

61 


I TRY IT AGAIN 

000004 

176505 

5S ! 

BJTB 

#BIT2» 

RNDFLG*! JCHFCK "OEROUNDING" FLAG 




BNE 

7$ 


{BRANCH IF SET 

000004 

176475 


B I SB 

#BJT2, 

RNQFLC*! | SET "DEROUNQJNG" FLAG 

000001 

176440 


SUB 

#1. 

SSUB2 

JRESTORE ORIGINAL answer 

176432 



SBC 

SSU31 


j SUBTRACT CARRY 



71 1 

HIT 



1 WRONG PSW OR ANSWER 




BR 

3$ 



000604 

176446 

2$ ! 

MOV 

#STACK0i 

SAVSTK 

ISAVE STACK ADDRESS FOR TYPING 

176442 

176366 


CMP 

SAVSTK, 

SSP 

ICHECK THE STACK POINTER 




BEGS 

i *4 


[BRANCH IF OK 



MAINDEC-U-0BKE8-A KEll^ <PDP"11 FJS) EXERCISER, 

DBKEBA.PU TEST 21 EXERCISE FSUB R1 

410 002232 104000 HUT 

411 

412 002234 022767 002314 176336 CMP 

413 002242 001401 BEQ 

414 002244 104000 HIT 

415 

416 002246 026767 176374 176326 CMP 

417 002254 001401 BEQ 

418 002256 104000 H1.T 

419 

420 002260 026767 176340 176316 CMP 

421 002266 001401 BEQ 

422 002270 104000 HUT 

423 

424 002272 026767 176330 176306 CMP 

425 002300 001401 BEQ 

426 e02302 104000 HIT 

427 

428 002304 026767 176310 176276 CMP 

429 002312 001401 BEQ 

430 002314 104000 HI.T 

431 

432 002316 026767 176300 176266 CMP 

433 002324 001401 BEQ 

434 002326 104000 HUT 

435 

436 002330 012716 002336 MQV 

437 002334 000002 *TJ 

43# 

439 002336 104400 3$: SCOPE 

440 


o 


MACY11 , 620 22»AUG«72 11 1 40 PACE 10 


ISTACK POINTER FOULED UP 


n*» 

• *4 

STKl 

(CHECK THE RTJ ADDRESS ON THE STACK 
(BRANCH IF OK 

(RTJ ADDRESS NOT EQUAU TO #1? 

SSUBER* 

i *4 

STK2 

(CHECK THE PSW ON THE STACK 
(BRANCH IF OK 
I RT I PSW NOT EQUAU TO 200 

RAND , C, 

t *4 

STK3 

(CHECK THE DATA ON THE STACK 
(BRANCH JF OK 
1 STK3 NOT EQUAU TO RAND.O 

RAND.O, 

.*4 

ST«4 

(CHECK THE OATA ON THE STACK 

(BRANCH IF OK 

(STK4 NOT EQUAU TO RAND.O 

RAND.Ai 

i*4 

STk5 

(CHECK THE DATA ON THE STACK 

(BRANCH IF OK 

(STK5 NOT EQUAU TO RAND, A 

RAND.Bi 

,*4 

STK6 

(CHECK THE data ON THE STACK 

(BRANCH 10 OK 

l$fK6 NOT EQUAL TO RAND.B 

«3S, 

(SP) 

(RESET THE STACK 
(RESTORE THE STATUS (T-BITI 





MAINDEC„il»DBKE8»A KEllF (POP. 11 FIS) EXERCISER, 

DBKEBA.PJi TEST 3i EXERCJSE FMUL R2 


441 







442 





} ««««#««*«••»{ 

443 





1 test 

31 

444 





1 

rand.i 

445 





1 

STACK 

446 





)•«««< 

tv »••««•< 

447 







448 

£02340 

012702 

000604 


TST3? 

MOV 

449 

£02344 

004767 

011230 



JSR 

450 







451 

£02350 

000240 




NOP 

452 

£02352 

075022 




FMUL* 

453 







454 

£02354 

013767 

177776 

176232 

IS: 

MOV 

455 

£02362 

010267 

176230 



MOV 

456 

£02366 

026767 

176256 

176220 

6$: 

CMP 

457 

£02374 

001023 




BNE 

458 







459 

£02376 

105767 

176212 



TSTB 

460 

£02402 

100464 




BM I 

461 







462 

£02404 

012767 

000610 

176256 


MOV 

463 

£02412 

026767 

176252 

176176 


CMP 

464 

£02420 

001401 




8EQ 

465 

£02422 

104000 




HLT 

466 







467 

£02424 

026767 

176222 

176156 


CMP 

468 

£02432 

001004 




BNE 

469 

£02434 

026767 

176214 

176150 


CMP 

470 

£02442 

001515 




BE8 

471 

£02444 

032767 

000010 

176220 

4$} 

BIT 

472 

£02452 

001022 




BNE 

473 

£02454 

052767 

000010 

176210 


BIS 

474 

£02462 

062767 

000001 

176164 


ADO 

475 

£02470 

005567 

176156 



AQC 

476 

£02474 

102334 




BVC 

477 

£02476 

000257 




CCC 

478 

£02500 

000262 




SEV 

479 

£02502 

013767 

177776 

176146 


MOV 

480 

£02510 

012767 

000340 

176132 


MOV 

481 

£02516 

000723 




BR 

482 







483 

£02520 

132767 

000010 

176145 


BJTB 

484 

£02526 

001010 




BNE 

485 

£02530 

152767 

000010 

176135 


B I SB 

486 

£02536 

162767 

000001 

176110 


SUB 

487 

£02544 

005667 

176102 



SBC 

488 

£02550 

104000 



7 Si 

HLT 

489 







490 

£02552 

000451 




BR 

491 







492 

£02554 

012767 

000604 

176106 

2% : 

MOV 

493 

£02562 

026767 

176102 

176026 


CMP 

494 

£02570 

001401 




BEQ 
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EXERCJSE FMUL ( POPili FLOATING MULTIPL* INSTRUCT I QN ) 
, RAND , B * RANO.C,RAND,0 s AN?1,ANS2 
POINTER 5 R2 


#STACK0.R2 l SET up the STACK POINTER 

pc, PUSHR /PUT THE data on THE STACK 


Rg iFIOATJNG MUtTjPEY ON THE R2 STACK 

•*PS, SPSW /SAVE PROCESSOR STATUS 
R2, SSP / SAVE THE STACK POINTER 
SMULPS, $P5H /CHECK THE PROCESSOR STATUS 
4$ /GO CHECK FOR ROUNDING ERROR 

SPSW | CHECK FOR ERROR 

2S IBRANCH If ERROR 

iSTACM, SAVSTK /SAVE PROPER STACK ADDRESS FOR TYPING 
SAVSTK, SSP /CHECK THE STACK POINTER 

, *4 IBRANCH IF OK 

I STACK POJNTER NOT EQUAL TO #STACK4 

SMULIi ANSI /CHECK THE ANSWER 
4S 

SMUL2, ANS2 | CHECK THE ANSWER 
3$ 

PBIT3, RNOFLG /CHECK THE ROUNDING FLAG 
5$ 

•BITS, RNOFLG /SET ROUNDING FLAG 
#1, SMUL2 /INCREMENT FORTRAN ANSWER 
SMULi | ADD CARRY 

6S /BRANCH IP NO OVERFLOW 

/CLEAR ALL condition CODES 
/SET VwBlf 

PIPS, SHULER /SET UP PSW FOR OVERFLOW 
#340, SMULPS /SET UP TRAP PSW 
61 /TRY l T AGAIN 

#B I T3 § RNOFlG*1 /CHECK "DEROUNO I NG» FLAG 
7$ IBRANCH IF SET 

#BIT3, RNOFLG+1 | SET "DEPENDING" FLAG 
#1, SMUL2 /RESTORE ORIGINAL ANSWER 
SMULI /SU8TRACT CARRY 

/WRONG PSW OR ANSWER 

3 $ 

PSTACK0, SAVSTK / SAVE STACK ADORESS FOR TYPING 
SAVSTK, SSP I CHECK THE STACK POINTER 

,*4 IBRANCH IF QK 



MAINDEC-i i-DBKES-A KEll r <PDP»11 FIS) EXERCISER, 

DBKEBA.Pil T£ST 3» EXERCISE FMUU R2 


495 

022572 

104000 



HIT 

496 






497 

002574 

322767 

002354 

175776 

CMP 

498 

202602 

301401 



BEQ 

499 

202604 

104000 



HUT 

500 






501 

102606 

026767 

176044 

175766 

CMP 

502 

202614 

001401 



BEQ 

503 

202616 

104000 



HUT 

504 






505 

202620 

026767 

176000 

175756 

CMP 

506 

202626 

001401 



BEQ 

507 

202630 

104000 



HUT 

508 






509 

202632 

026767 

175770 

175746 

CMP 

510 

202640 

001401 



BEQ 

511 

202542 

104000 



HUT 

512 






513 

202644 

026767 

175750 

175736 

CMP 

514 

202652 

001401 



BEQ 

515 

202654 

104000 



HUT 

516 






517 

222656 

026767 

175740 

175726 

CMP 

518 

202664 

001401 



BEQ 

519 

202666 

104000 



HUT 

520 






521 

202670 

012716 

002676 


MQV 

522 

202674 

000002 



RTJ 

523 






524 

202676 

104400 


3$ i 

SCOPE 


525 



MACYli.620 22*>AUG»72 U|40 RACE j.2 


jSfACK POINTER FOWUED UP 


*15. 

,♦4 

STK1 

I CHECK THE RTI ADDRESS Om THE STACK 
j BRANCH IF OK 

I RT I ADDRESS NOT EQUAU TO #1* 

SMUUERi 

,44 

ST«2 

JCHECK THE PSW ON THE STACK 
IBRANCH IF OK 
1 RT | PSW NOT EQUAU TO 200 

RAND, Ci 
, *4 

STK3 

I'CHECK THE DATA ON THE STACK 

IBRANCH IF OK 

l'S?K3 NOT EQUAU TO RANO.C 

RAND.Di 
, 44 

STK4 

I CHECK THE DATA ON THE STACK 

IBRANCH IF OK 

|S?K4 NOT EQUAU TO RAND ,0 

RAND, A i 
,44 

SfK5 

1 CHECK THE DATA ON THE STACK 

IBRANCH IF OK 

|S?K5 NOT EQUAU TO RAND, A 

RANO.Bi 

,*4 

STk6 

ICHECK THE DATA ON THE STACK 

I BRANCH IF OK 

|STK6 NOT EQUAU TO RAND.B 

#3S, 

<SP> 

IRESET THE STACK 
I'RESTORE THE STATUS (T.BIT) 




MA1NDEC-U-DBKE8-A 

DSKE.BA. PU TEST 4! 

526 

527 

528 

529 

530 

531 

532 

533 702700 012703 

534 702704 004767 

535 

536 702710 000240 

537 702712 075033 

530 

539 702714 013767 

540 702722 010367 

541 702726 326767 

542 702734 001023 

543 

544 702736 105767 

545 702742 100464 

546 

547 702744 012767 

548 702752 026767 

549 702760 001401 

550 702762 104000 

551 

552 702764 026767 

553 702772 001004 

554 702774 026767 

555 703002 001515 

556 703004 032767 

557 703012 001022 

558 703014 052767 

559 703022 062767 

560 703030 005567 

561 703034 102334 

562 703036 000257 

563 703040 000262 

564 703042 013767 

565 703050 012767 

566 703056 000723 

567 

568 703060 132767 

569 703066 001010 

570 703070 152767 

571 703076 162767 

572 703104 005667 

573 703110 104000 

574 

575 703112 000451 

576 

577 703114 012767 

578 703122 026767 

579 703130 001401 
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EXERCISE FDIV R3 


l#**«#**#*»»»***»#*#*»***»»*****»*****************»‘*** i, ** ,tf, * ,#,,,,,i 

{TEST 41 EXERCISE FDjV (PDP-11 FLOATING DIVIDE INSTRUCTION) 

J RAND, A, RAND, B / RAND , C , RAND , D s AN|S1,ANS2 

{ STACK POINTER * R3 

l-a#-*-*-*********-*********-**-****-*-********************************* 


000604 


TST4! 

MOV 

#STACK0 

,R3 

j SET UP THE STACK POINTER 

010670 



JSR 

PC, 

PUSHR 

» PUT THE DATA ON THE STACK 




NOP 







F0IV + 

R3 


IFLOATING DIVIDE ON THE R3 STACK 

177776 

175672 

If S 

MQV 

POPS, 

SPSW 

{SAVE PROCESSOR STATUS 

175670 



MOV 

R3, 

$SP 

{'SAVE The STACK POINTER 

175726 

175660 

6S : 

CMP 

SOJVPS, 

SPSW 

{'CHECK THE PROCESSOR STATUS 




BNE 

4S 


|©0 CHECK FOR ROUNOING ERROR 

175652 



TSTB 

SPSW 


{'CHECK FOR ERROR 




BMl 

2$ 


ibranch if error 

000610 

175716 


MQV 

4STACK4 

.SAVSTK 

{SAVE PROPER STACK ADDRESS FqR TYPING 

175712 

175636 


CMP 

SAVSTK | 

SSP 

{CHECK THE STACK POINTER 




BES 

i *4 


{BRANCH If OK 




hlt 



{'STACK POINTER NOT EQUAL TO #STACK4 

175672 

175616 


CMP 

SDJV1, 

ANSI 

{'CHECK THE ANSWER 




BNE 

4$ 



175664 

175610 


CMP 

S0JV2, 

ANS2 

{'CHECK THE ANSWER 




BEG 

3$ 



000020 

175660 

4$i 

BJT 

#B J T4 1 

rnbflg 

{CHECK THE ROUNDING FLAG 




BNE 

5S 



000020 

175650 


BIS 

#8 1 T4 , 

rnoflg 

{SET ROUNOING FLAG 

000001 

175634 


ADD 

Hi 

SDIV2 

{INCREMENT FORTRAN ANSWER 

175626 



ADD 

$oi vi 


{ADD CARRY 




eve 

6$ 


{BRANCH IF NO OVERFLOW 




CCC 



{CLEAR ALL CONDITION CODES 




SEV 



{SET V-BJT 

177776 

175616 


MQV 

s»#PS, 

SQIVER 

j SET UP PSW FOR OVERFLOW 

000340 

175602 


MOV 

#340, 

SOI VPS 

{SET UP TRAP PSW 




BR 

61 


{'TRY i T AGAIN 

000020 

175605 

5$: 

BITS 

#B J T4 j 

RNOFi.G*l 

{CHECK "DEROUNDING" FyAG 




BNE 

7$ 


{BRANCH IF SET 

000020 

175575 


8JSB 

#8 J T4 , 

rnoflgpi 

| SET "DEROUND J NG" FLAG 

000001 

175560 


SUB 

#1, 

SO ! V2 

{’RESTORE ORIGINAL ANSWER 

175552 



SBC 

$01. VI 


{SUBTRACT CARRY 



7|i 

HIT 



{WRONG PSW OR ANSWER 




BR 

3$ 



000604 

175546 

2$: 

MOV 

#ST ACK0 

.SAVSTK 

(SAVE STACK ADDRESS FOR TYPING 

175542 

175466 


CMP 

SAVSTK, 

SSP 

{CHECK THE STACK POINTER 




8EQ 

i*4 


{BRANCH IF OK 







» * W* '*4. r * ** f fcAfcnwi^fenj 


DBKEBA.PU 

TEST 4 ( 


EXERCISE folV 

R3 

580 

003132 

104000 



HUT 

581 






582 

P 0 3 1 3 4 

Z22767 

032714 

175436 

CMP 

583 

203142 

001401 



8EQ 

584 

003144 

104000 



HL.T 

585 






586 

003146 

026767 

175514 

175426 

CMP 

587 

003154 

001401 



BEQ 

588 

003156 

104000 



HI.T 

589 






590 

003160 

026767 

175440 

175416 

CMP 

591 

003166 

001401 



BEO 

592 

(KOI 

003170 

104000 



HUT 

593 

594 

003172 

026767 

175430 

175406 

CMP 

595 

003200 

001401 



BEO 

596 

003202 

104000 



HUT 

597 






599 

003204 

026767 

175410 

175376 

CMP 

599 

003212 

001401 



BEO 

600 

003214 

104000 



HUT 

601 






602 

003216 

026767 

175400 

175366 

CMP 

603 

003224 

001401 



BEO 

604 

003226 

104000 



HUT 

605 






606 

003230 

012716 

003236 


MOV 

607 

003234 

000002 



RTJ 

609 






609 

003236 

104400 


3St 

SCOPE 


610 




(STACK POINTER FOULED UP 

ns* 

, *4 

stki 

1 CHECK THE RTJ ADDRESS ON THE STACK 
(BRANCH JP OK 

j'RT I ADDRESS NOT EQUAU TO #1* 

SOIVER, 
i *4 

STK2 

(CHECK THE PSW ON THE STACK 

(BRANCH IF OK 

jRTI PSW NOT EQUAU TO 200 

RAND.Cj 

t *4 

STK3 

(CHECK THE DATA ON THE STACK 

(BRANCH IF OK 

(STK3 NOT EQUAU TO RAND , t 

RAND.Di 
, *4 

STK4 

(CHECK THE DATA ON THE STACK 
IBRANCH JF OK 
1 STK4 NOT EQUAU TO RANO.D 

RAND, A, 
,*4 

STK5 

(CHECK THE DATA ON THE STACK 

(BRANCH IF OK 

>STK5 NOT EQUAL TO RAND, A 

RANO.Bi 

,*4 

STK6 

(CHECK THE DATA ON THE STACK 

(BRANCH IF OK 

i$?K6 NOT EQUAU TO RANO.B 

#3$« 

<SR> 

(RESET THE STACK 
(RESTORE THE STATUS (T*BJT) 




MAINDEC 

-il-DBKEB-A 

KEUF 
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08KEBA. 

PU 

TEST 5! 


EXERCISE 

; fADD 

R4 



6U 

612 






613 





1 TEST 

51 

EXERCISE F ADO 

(PMPull FLOATING ADD INSTRUCTION) 

614 





J 

RAND, A 

(RAND , B * RAND.C 

,RAN0,0 * ANSI , ANS2 

615 





i 

STACK 

POINTER * R4 


616 






617 

618 

203240 

012704 

000604 


TST5S 

MOV 

#STACK0»R4 

(SET UP THE STACK POINTER 

619 

203244 

004767 

010330 



JSR 

PCi PySHR 

j PUT THE DATA ON THE STACK 

620 









621 

e03250 

000240 




NQP 



622 

203252 

075004 




FAOO + 

R4 

(FUOATING ADO ON THE R4 STACK 

623 

624 

203254 

013767 

177776 

175332 

IS s 

MOV 

PAPS, SPSW 

(SAVE PROCESSOR STATUS 

625 

203262 

0J0467 

175330 



MOV 

R4| SSP 

(SAVE THE STACK POINTER 

626 

203266 

026767 

175336 

175320 


CMP 

SAODPSi SPSW 

(CHECK THE PROCESSOR STATUS 

627 

203274 

001401 




SEQ 

, *4 

(BRANCH IF OK 

626 

203276 

104000 




HUT 


(PSW NOT EQUAU TO SADDPS 

629 

630 

203300 

105767 

175310 



TSTB 

SPSW 

(CHECK FOR ERROR 

631 

203304 

100423 




BMI 

2S 

(BRANCH IF ERROR 

632 

633 

203306 

012767 

000610 

173354 


MQV 

P5TACK4, SAVSTK 

(SAVE PROPER STACK ADDRESS FOR TYRING 

634 

203314 

026767 

175350 

175274 


OMP 

SAVSTK, SSP 

(CHECK THE STACK POINTER 

635 

203322 

001401 




BEQ 

,*4 

(BRANCH IF OK 

636 

203324 

104000 




HUT 


(STACK POINTER NOT EQUAU TO #STACK4 

637 









636 

203326 

026767 

175300 

175254 


CMP 

SADOii ANSI 

(CHECK THE ANSWER 

639 

203334 

001401 




BEQ 

, *4 

(BRANCH IF OK 

640 

203336 

104000 




HUT 


(LEFT HAUF OF ANSWER WRONG 

641 

642 

203340 

026767 

175270 

175244 


CMP 

SADD2| AN92 

(CHECK THE ANSWER 

643 

203346 

001401 




BEQ 

,*4 

(BRANCH JF OK 

644 

203350 

104000 




HUT 


(RIGHT HAUF OF ANSWER WRONG 

645 









646 

203352 

000451 




BR 

3$ 


647 









648 

203354 

012767 

000604 

175306 

2$l 

MOV 

PSTACK0 i SAVSTK 

(SAVE STACK ADDRESS FOR TYPING 

649 

203362 

026767 

175302 

175226 


CMP 

SAVSTK, $SP 

(CHECK THE STACK POINTER 

650 

203370 

001401 




BEQ 

,*4 

(BRANCH IF OK 

651 

203372 

104000 




HUT 


(STACK POINTER FOUUEO UP 

652 

653 

203374 

022767 

003254 

175176 


CMP 

PIS, STK1 

(CHECK THE RT I ADDRESS ON THE STACK 

654 

203402 

001401 




BEQ 

, *4 

(BRANCH IF OK 

655 

203404 

104000 




HUT 


1 RT I ADDRESS NOT EQUAU TO #11 

656 









657 

203406 

026767 

175224 

175166 


CMP 

SADDER, STk2 

(CHECK THE PSW ON THE STACK 

658 

203414 

001401 




BEQ 

, *4 

(BRANCH IF OK 

659 

203416 

104000 




hut 


I RT I PSW NOT EQUAU TO 200 

660 









661 

203420 

026767 

175200 

175156 


CMP 

RAND.C, STK3 

(CHECK THE DATA ON THE STACK 

662 

203426 

001401 




BEQ 

, *4 

(BRANCH IF OK 

663 

203430 

104000 




HUT 


( S T K 3 NOT EQUAL TO RAND.C 


664 
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RAND.D, STK4 (CHECK THE DATA ON THE STACK 
, *4 (BRANCH If OK 

I STK4 NOT EQUAL, TO RAND.D 

RAND , A | STK5 (CHECK THE DATA ON THE STACK 
,*4 j BRANCH IF OK 

I STK5 NOT EQUAL, TO RAND, A 

RAND.B, STK6 ICMECK THE DATA ON THE STACK 

, +4 (BRANCH IF OK 

(STK6 NOT EQUAL TO RANO.B 

#3$, (SP) (RESET THE STACK 

(RESTORE THE STATUS <T«BIT) 


EXERCJSE FSUB IPOPill FLOATING SUBTRACT INSTRUCTION) 
, RAND t B • RAND, C, RAND.D ■ ANS1,ANS2 
POINTER 8 R5 


ASTACK0 

PC. 

.R5 

PUSHR 

I SET UP THE STACK POINTER 
|PUT THE DATA ON THE STACK 


R3 


(FLOATING SU8TRACT ON THE R5 

STACK 

P#PS, 

R3, 

SSUBPS, 

,*< 

SPSW 

SSP 

SPSW 

(SAVE PROCESSOR STATUS 
(SAVE THE STACK POINTER 
(CHECK THE PROCESSOR STATUS 
(BRANCH IF OK 
(PSW NOT EQUAL TO SSUBPS 


SPSW 

21 


ICHECK FOR ERROR 
(BRANCH IF ERROR 


#STACK4 

SAVSTK, 

,*4 

i SAVSTK 
SSP 

(SAVE PROPER STACK ADDRESS FOR TYPING 
(CHECK THE STACK POINTER 
(BRANCH IF OK 

(STACK POINTER NOT EQUAL TO PSTACK4 

SSUB1, 
t *4 

ANSI 

(CHECK THE ANSWER 
(BRANCH IF OK 

1 LEFT HALF OF ANSWER WRONG 


SSUB2, 

i*4 

A NS 2 

ICHECK THE ANSWER 
(BRANCH IF OK 

(RIGHT HALF OF ANSWER WRONG 



3$ 




HAINOiC 

*1 1^0BKE8*A 

KEUF 

< PDP-JLl nss EXERCISER, 

MACY11 , 620 22 
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D8KEBA, 

pu 

TEST 8? 


EXERCISE FSUB 

R5 



719 

203614 

012767 

080604 

175046 

2Ss 

MOV 

#ST*CK0iSAVSTK 

(SAVE STACK ADDRESS FOR TYPING 

720 

£03622 

026767 

175042 

174766 


CMP 

SAVSTK, SSP 

/CHECK THE STACK POINTER 

721 

£03630 

001401 




BEG 

, *4 

/BRANCH IF OK 

722 

£03632 

104000 




HIT 


(STACK POJNTER FOULED UP 

723 

724 

£03634 

022767 

303514 

174736 


CMP 

#1S, stki 

(CHECK THE RTJ ADDRESS ON THE STACK 

725 

£03642 

001401 




BEG 

i *4 

/BRANCH IF OK 

726 

£03644 

104000 




HIT 


(RTJ ADDRESS NOT EQUAL TO PIS 

727 









728 

£03646 

026767 

174774 

174726 


CMP 

SSUBERj STK2 

(CHECK THE PSW ON THE STACK 

729 

£03654 

001401 




BEG 

, *4 

/BRANCH IF OK 

730 

£03656 

104000 




H LT 


(RTJ PSW NOT EQUAL TO 200 

731 

732 

£03660 

026767 

174748 

174716 


CMP 

RANO.C, STK3 

/CHECK THE DATA ON THE STACK 

733 

£03666 

001401 




BEG 

,*4 

(BRANCH IF OK 

734 

£03670 

104000 




H|»T 


/STK3 NOT EQUAL TO RANO.C 

735 

736 

£03672 

026767 

174738 

174706 


CMP 

RAND.D, STK4 

(CHECK THE DATA ON THE STACK 

737 

£03700 

001401 




beg 

,44 

/BRANCH IF OK 

738 

£03702 

104000 




HIT 


/ S 7 K 4 NOT EQUAL TO RAND,0 

739 









740 

£03704 

026767 

174710 

174676 


CMP 

RAND, A, STK5 

(CHECK THE DATA ON THE STACK 

741 

£03712 

001401 




BEG 

» *4 

(BRANCH IF OK 

742 

*1 At. 

£03714 

104000 




HLT 


(STK5 NOT EQUAL TO RAND, A 

743 

744 

£03716 

026767 

174700 

174666 


CMP 

RAND.B, STK6 

(CHECK THE DATA ON THE STACK 

745 

£03724 

001401 




BEG 

, *4 

/BRANCH IF OK 

746 

£03726 

104000 




HLT 


/STK6 NOT EQUAL TO RAND, 8 

747 









748 

£03730 

012716 

003736 



MOV 

P3S * (SP) 

(RESET THE STACK 

749 

£03734 

000002 




RTI 


/RESTORE THE STATUS (T*BIT) 

750 









751 

£03736 

104400 



3$s 

SCOPE 



752 









753 









754 





| ft* *#*###«*«$#$#»»$ #*&##*##«#$#* ###### ###*######« ###*###*! 

755 





ITEST 

7? 

EXERCISE FMUL 

(PDPpI' FLOATING MULTIPLY INSTRUCTION) 

756 





J 

RAND, A 

,RANO,B * RAND , C 

, R AND , ■ p ANSI i ANS2 

757 





I 

STACK 

POINTER p SP 


758 





J *««*«*#•»•**«««««#»#*«$»•#•*#«$ «$#>• 

759 









760 

£03740 

042706 

000604 


TST7! 

MOV 

PST ACK0 , SP 

(SI JP THE stack POINTER 

761 

£03744 

004767 

007630 



JSR 

PC, PUSHR 

IPH* 7ME DATA ON THE STACK 

762 









763 

£03750 

000240 




NOP 



764 

£03752 

075026 




fmul* 

SP 

(FLOATING MUlTIP^ ON THE SP STACK 

765 









766 

£03754 

013767 

177776 

174632 

1$ l 

MOV 

IMPS, SPSW 

/SAVE PROCESSOR STATUS 

767 

£03762 

010667 

174630 



MOV 

SP, SSP 

(SAVE THE STACK POINTER 

7 68 

£03766 

026767 

174656 

174620 


CMP 

SMULPS, SPSW 

(CHECK THE PROCESSOR STATUS 

769 

£03774 

001401 




beg 

, *4 

(BRANCH IF OK 

770 

£03776 

104000 




HLT 


(PSW NOT EQUAL ”0 Ik'JLP? 

771 









772 

£04000 

105767 

174610 



TSTB 

SPSW 

(CHECK FOR ERROR 




SCOPE 
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/BRANCH Jf ERROR 


#STACK«i 

SAVSTK, 

, *4 

i SAVSTK 
$SP 

/SAVE PROPER STACK ADDRESS FOR TYPING 
, CHECK THE STACK POINTER 
) BRANCH IF OK 

/STACK POINTER NOT EQUAL TO #STACK4 

smuli, 

,*4 

ANSI 

ICMECK THE ANSWER 
/BRANCH IF OK 

ILEFT HALF OF ANSWER WRONG 


SMUl2, 

I * 4 

ANS2 

/CHECK THE ANSWER 
/BRANCH IF OK 

/RIGHT HALF OF ANSWER WRONG 


-csp> , 

3$ 

■ <SP> 

(RESTORE THE STACK 


#STK1, 
SAVSTK , 

,* 4 

SAVSTK 

ISP 

/SAVE PROPER STACK ADDRESS FOR 
/CHECK THE STACK POINTER 
/BRANCH IF OK 
iSTACK POINTER FOULED UP 

typing 

#1$, 

,*4 

STK1 

/CHECK THE R T 1 ADDRESS ON THE 
/BRANCH IF OK 

|RT! ADDRESS NOT EQUAL TO #11 

STACK 

$MUI»ER| 

I * 4 

STK2 

/CHECK THE PSW ON THE STACK 

/BRANCH IF OK 

I'RTJ PSW NOT EQUAL TO 200 


RANG. Ci 
,*4 

STK3 

(CHECK THE DATA ON THE STACK 

(BRANCH IF OK 

(STK3 NOT EQUAL TO RANO.C 


RANO.Pi 

,*4 

STK4 

(CHECK THE DATA ON THE STACK 

(BRANCH IF OK 

/StK4 NOT EQUAL TO RAND', 0 


RAND. A ( 
• * 4 

STK5 

(CHECK THE DATA ON THE STACK 

(BRANCH IF OK 

(STK5 NOT EQUAL TO RAND, A 


RAND.B, 

,* 4 

STK6 

(CHECK THE DATA ON THE STACK 

(BRANCH IF OK 

(STK6 NOT EQUAL TO RAND, 8 


#31, 

( SP ) 

(RESET THE STACK 
/RESTORE THE STATUS ( T »B 1 T 1 





0 
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DBKEBA.PJ1 TEST 131 

823 

826 

827 

828 

829 

830 

831 

832 204202 012700 

833 204206 004767 

834 

835 004212 000240 

836 204214 075030 

837 

838 204216 013767 

839 204224 010867 

840 204230 026767 

841 204236 001401 

842 204240 104000 

843 

844 204242 105767 

845 204246 100423 

846 

847 204250 012767 

848 204256 026767 

849 204264 001401 

850 204266 104000 

851 

852 204270 026767 

853 204276 001401 

854 204300 104000 

855 

856 204302 026767 

857 204310 001401 

858 204312 104000 

859 

860 204314 000451 

861 

862 204316 012767 

863 204324 026767 

864 204332 001401 

865 204334 104000 

866 

867 204336 022767 

868 204344 001401 

869 204346 104000 

870 

871 204350 026767 

872 204356 001401 

873 204360 104000 

874 

875 204362 026767 

876 204370 001401 

877 204372 104000 

878 
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| •*•••••« $## ##*##* £#*###*#*#*•### #*##*******•***♦•*♦ #•*##»###**•** 

| TEST 101 EXERCISE FO I V (PDP-11 FLOATING DIVIDE INSTRUCTION) 

I RAND, A, RAND, 0 l RAND , C, R AND , D * ANS1,ANS2 

( STACK POINTER % R0 

| £$###*###########*#*###########«*##*#*#****#*•**»*• #####* ♦**•#« ###•#•#• 


000604 

007366 


TST10I 

MOV 

JSR 

PSTACK0 

PC, 

,R0 

PU8HR 

| SET UP THE STACK POINTER 
* PUf tHE'DATA ON THE STACK 




NQP 

FDIV* 

R0 


/FLOATING DIVIDE ON THE R0 STACK 

177776 

174366 

174424 

174370 

174356 

IS: 

MOV 

MOV 

CMP 

BEQ 

HIT 

»#PS, 

R0, 

SOIVPS, 

,*4 

SPSW 

SSP 

SPSW 

•SAVE PROCESSOR STAtUS 

i save the stack pointer 

1 CHECK THE PROCESSOR STATUS 

/BRANCH IE OK 

/PSW NOT EQUAL TO SDIVPS 

174346 



TSTB 
BM J 

SPSW 

2S 


1 CHECK FOR ERROR 
/BRANCH If ERROR 

000610 

174406 

174412 

174332 


MOV 

CMP 

BEQ 

HUT 

8STACK4 

SAVSTK, 

,*« 

i SAVSf K 
SSR 

/SAVE PROPER STACK ADDRESS FOR TYPING 
1 CHECK THE SUCK POINTER 
/BRANCH IP OK 

lltACK POINTER NOT EQUAL TO #$TACK4 

174366- 

174312 


CMP 

BEQ 

hlt 

SO I Vl| 
,*4 

ANSI 

/CHECK THE ANSWER 
/BRANCH IP OK 

1 left half of answer wrong 

174356 

174302 


CMP 

BEQ 

HLT 

S0IV2, 
t ^4 

ANS2 

1 CHECK THE ANSWER 
/BRANCH if ok 

/RIGHT HALF OF ANSWER WRQN8 




BR 

3* 



000604 

174340 

174344 

174264 

2S : 

MOV 

CMP 

BEQ 

HLT 

PSTACKS 

SAVSTK, 

i SAVSTK 
SSP 

/SAVE STACK ADDRESS FOR TYPING 
/CHECK THE STACK POINTER 
/BRANCH IF OK 
(STACK POINTER FOULED UP 

004216 

174234 


CMP 

BEQ 

HLT 

PIS, 

,*4 

STK1 

(CHECK THE RT I ADDRESS ON THE STACK 
(BRANCH IF OK 

1 RT I ADDRESS NOT EQUAL TO *|S 

174312 

174224 


CMP 

BEQ 

hlt 

SOIVER, 
, *4 

STK2 

1 CHECK THE PSW ON THE STACK 
/BRANCH IF OK 
1 Rt I PSW NOT EQUAL TO 200 

174236 

174214 


CMP 

BEQ 

HLT 

RAND.C, 

.*4 

STK3 

(CHECK THE DATA ON THE STACK 

(BRANCH OK 

(STK3 NOT EQUAL TO RANO.C 
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-ll-DBKEB-A 

KE11F 
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•AU$*72 111 40 PAGE 20 

D8KEBA.PU 

TEST 101 

EXERCISE 

FDIV 

R0 



879 

004374 

026767 

174226 

174204 


CMP 

RAND.D, ST«4 

(CHECK THE DATA ON THE STACK 

880 

004402 

001401 




bed 

, *4 

( BRANCH IF OK 

881 

ft A A 

004404 

104000 




HIT 


j STK4 NOT EQUAU TO RANO.O 

882 

883 

004406 

026767 

174206 

174174 


CMP 

RAND , A, STK5 

(CHECK THE DATA ON THE STACK 

884 

704414 

001401 




BEQ 

,64 

(BRANCH JF OK 

885 

204416 

104000 




H|,T 


j‘STK5 NOT EQUAU TO RAND, A 

868 

887 

204420 

026767 

174176 

174164 


CMP 

RAND.B, STK6 

(CHECK THE DATA ON THE STACK 

888 

204426 

001401 




BED 

, *4 

(8RANCH IF OK 

889 

204430 

104000 




HUT 


(STK6 NOT EQUAU TO RAND.B 

890 

891 

204432 

012716 

004440 



MOV 

#33, <SP) 

(RESET THE STACK 

892 

ant 

204436 

000002 




RTl 


(RESTORE THE STATUS (T«BIT> 

894 

204440 

104400 



3S: 

SCOPE 



895 









896 









897 





; ••••• 




898 





f TEST 

111 

EXERCISE FAOO 

iPOPill FUOATING ADO INSTRUCTION) 

899 





I 

RAND, A 

, RAND.B 6 RAND', C 

, RANO.O * ANSI# ANS0 

900 





1 

STACK 

POINTER i RJ 


901 

QAA 





(•***• 

*»«»«*** 



V0« 

90S 

204442 

012701 

000604 


TSTlli 

MOV 

astackb.r; 

(SET UP THE STACK POINTER 

904 

204446 

004767 

007126 



JSR 

PC, PU5HR 

(PUT THE DATA ON THE STACK 

905 









906 

204452 

000240 




NOP 



907 

204454 

075001 




FABO* 

R1 

I'FUOATInC ADO BN THE Rl STACK 

908 

909 

204456 

013767 

177776 

174130 

i$» 

MOV 

MPSi SPIN 

(SAVE PROCESSOR STATUS 

910 

204464 

010167 

174126 



MOV 

Rli SSP 

(SAVE THE STACK POINTER 

911 

204470 

026767 

174134 

174116 


CMP 

SADOPSi SP5W 

(CHECK THE PROCESSOR STATUS 

912 

204476 

001401 




8EQ 

1 64 

(BRANCH IF OK 

913 

n i a 

204500 

104000 




HUT 


(PSW NOT EQUAU TO SAPORS 

914 

915 

204502 

105767 

174106 



TSTB 

spsw 

(CHECK FOR ERROR 

916 

204506 

100423 




BMJ 

2S 

(BRANCH IF ERROR 

917 

918 

204510 

012767 

000610 

174152 


MOV 

#STApK4, SAVSTK 

(SAVE PROPER STACK ADDRESS FOR TYPING 

919 

204516 

026767 

17414$ 

174072 


CMP 

SAVSTK, SSP 

(CHECK THE STACK POINTER 

920 

204524 

001401 




BEO 

,64 

(BRANCH IF OK 

921 

204526 

104000 




HUT 


(STACK POINTER NOT EQUAU TO #STACK4 

922 

923 

204530 

026767 

174076 

174052 


CMP 

SADDli ANSI 

(CHECK THE ANSWER 

924 

204536 

001401 




BEQ 

,64 

(BRANCH IF OK 

925 

204540 

104000 




HUT 


jUEFT HAUF OF ANSWER WRONG 

926 

927 

204542 

026767 

174066 

174042 


CMP 

SA0D2, ANS2 

(CHECK THE ANSWER 

928 

204550 

001401 




BEQ 

,64 

(BRANCH IF OK 

929 

204552 

104000 




HUT 


(RIGHT HAUF OF ANSWER WRONG 

930 









931 

204554 

000451 




BR 

3$ 




o 

MAINOEC-U-DBKEB-A 
08KEBA.PU TEST ill 

933 ?04556 012767 

93« 704664 026767 

935 704572 001401 

936 704574 104000 

937 

938 724576 222767 

939 704604 001401 

940 704606 104000 

941 

942 704610 026767 

943 J04616 001401 

944 704620 104000 

945 

946 704622 026767 

947 704630 001401 

948 704632 104000 

949 

950 704634 026767 

951 704642 001401 

952 704644 104000 

953 

954 70464$ 026767 

955 704654 001401 

956 704656 104000 

957 

956 704660 026767 

959 704666 001401 

960 704670 104000 

961 

962 704672 012716 

963 704676 000002 

964 

965 704700 104400 

966 

967 

968 

969 

970 

971 

972 

973 

974 704702 012702 

975 704706 004767 

976 

977 704712 000240 

978 704714 075012 

979 

980 704716 013767 

981 704724 010267 

982 704730 026767 

983 704736 001401 

984 704740 104000 

985 

986 704742 105767 
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000604 

174100 

174104 

174024 

2Si 

MOV 

CMP 

BEQ 

HUT 

i*STACK0,SAVSTK 
SAVSTK , $SP 
,*4 

(SAVE STACK ADDRESS FOR TYPING 
1 CHECK THE STACK POINTER 
j BRANCH IF OK 

> stack pointer fouued up 

004456 

173774 


CMP 

BEQ 

KI.T 

PIS, STK1 

i *4 

} CHECK THE RTI ADDRESS ON THE STACK 
( branch if ok 

jRf I ADDRESS NOT EQUAU TO #1S 

174022 

173764 


CMP 

BEQ 

HUT 

SADDER, STK2 

,♦4 

| CHECK THE PSW ON THE STACK 
(BRANCH JF OK 
1 RT J PSW NOT EQUAU TO 200 

173776 

173754 


CmP 

BEQ 

HUT 

RAND.C, STK3 
,*4 

(CHECK THE DATA ON THE STACK 

(BRANCH IF OK 

(STK3 NOT EQUAU TO RAND , C 

173766 

173744 


CMP 

BEQ 

HUT 

RANO.O, 3TK4 
»*4 

(CHECK THE DATA ON THE STACK 
('BRANCH IF OK 
> STM NOT EQUAU TO RAND', 0 

173746 

173734 


CMP 

BEQ 

HUT 

RAND, A, STK5 
, *4 

(CHECK THE DATA ON THE STACK 

(BRANCH if OK 

JSTKS NOT EQUAU TO RAND, A 

173736 

173724 


CMP 

BEQ 

HUT 

RAND, 8, STK6 

,44 

(CHECK THE DATA ON THE STACK 

('BRANCH IP OK 

(STK6 NOT EQUAU TO RAND , B 

004700 



MOV 

RTI 

#3S , (SP) 

(RESET THE STACK 
(RESTORE THE STATUS (T«B{T) 



3$ 1 

SCOPE 





$ #**#£*»#**## 

? TEST 121 EXERCISE F$UB (PDP-11 FLOATING SUBTRACT INSTRUCTION) 

S RAND.AiRAND.B * RAND, C, RAND, D a ANSI, ANS2 

s STACK POINTER 8 R2 

| ***#«* »*«#*»#**##«»«*#*»##»#«****»«*^*»** P «»»«***«»«**********» 8 *•**••* 

000604 

006666 


TST121 

MOV 

USR 

P3TACK0,R2 

pc , pyswR 

(SET UP THE STACK POINTER 
(PUT THE DATA ON THE STACK 




NOP 
FSUB + 

R2 

TFUOATSnD subtract on the rs stack 

177776 

173666 

173704 

173670 

173656 

1$: 

MOV 

MOV 

CMP 

BEQ 

HUT 

<P#PS, SPSW 

R2, SSP 

SSUBPS, SPSW 
» *4 

(SAVE PROCESSOR STATUS 
(SAVE THE STACK POINTER 
(CHECK THE PROCESSOR STATUS 
(BRANCH If OK 
(PSW NOT EQUAU TO SSUBPS 

173646 



TSTB 

SPSW 

(CHECK FOR ERROR 



MAINDEC 

-U-DBKEB.A 

KEUF 

(PDP-11 PIS) EXERCISER, 

0BKE8A. 

PU 

TEST 121 

EXERCISE FSUB 

R2 

987 

P04746 

100423 



BMI 

988 






989 

004750 

012767 

000610 

173712 

MOV 

990 

004756 

026767 

173706 

173632 

CMP 

991 

204764 

001401 



BEQ 

V92 

?04766 

104000 



HUT 

993 






994 

204770 

026767 

173646 

173612 

CMP 

995 

204776 

001401 



BEQ 

996 

205000 

104000 



HUT 

997 






998 

005002 

026767 

173636 

173602 

CMP 

999 

205010 

001401 



BEQ 

1000 

225012 

104000 



HUT 

1001 






1002 

e05014 

000451 



BR 

1003 






1004 

005016 

012767 

000604 

173644 2$ : 

MQV 

1005 

005024 

026767 

173640 

173564 

CMP 

1006 

005032 

001401 



BEQ 

1007 

005034 

104000 



HUT 

1008 






1009 

005036 

022767 

004716 

173534 

CMP 

1010 

005044 

001401 



BEQ 

1011 

005046 

104000 



HUT 

1012 






1013 

005050 

026767 

173572 

173524 

CMP 

1014 

005056 

001401 



BEQ 

1015 

005060 

104000 



HUT 

1016 






1017 

005062 

026767 

173536 

173514 

CMP 

1018 

005070 

001401 



BEQ 

1019 

005072 

104000 



HUT 

1020 

1021 

005074 

026767 

173526 

173504 

CMP 

1022 

005102 

001401 



BEQ 

1023 

4 fll O At 

005104 

104000 



HUT 

1025 

005106 

026767 

173506 

173474 

CMP 

1026 

005114 

001401 



BEO 

1027 

005116 

104000 



HUT 

1028 






1029 

005120 

226767 

173476 

173464 

CMP 

1030 

005126 

001401 



BEQ 

1031 

005130 

104000 



HUT 

1032 






1033 

005132 

212716 

005140 


MOV 

1034 

005136 

000002 



RTJ 

1035 




• 


1036 

005140 

104400 


3$! 

SCOPE 


1037 


MACYU.620 22»AU6i72 11(40 PAGE 22 


2S 


{BRANCH IP ERROR 

#STACK4 
SAVSTK, 
t *4 

, SAVSTK 
$SP 

1 SAVE PROPER STACK ADDRESS FOR TYPING 
ICHECK THE STACK POINTER 
I BRANCH IF OK 

{STACK POINTER NOT EQUAU TO #STACK« 

SSUB1, 

,*4 

ANSI 

ICHECK THE ANSWER 
IBRANCH IF OK 

lUEFT HAUF OF ANSWER WRONG 

SSUB2, 

• 

ANS2 

ICHECK THE ANSWER 
IBRANCH IF OK 

I'RtGHt HAUF OF ANSWER WRONG 

31 



FSTACK0 

SAVSTK, 

,*« 

.SAVSTK 

SSP 

ISAVE STACK ADDRESS FQR TYPING 
/CHECK THE STACK POINTER 
IBRANCH IF OK 
iStACK POINTER FOUUEO UP 

#1$« 

.♦« 

STK1 

ICHECK THE RTJ ADDRESS ON THE STACK 
IBRANCH If OK 

|Rtj ADDRESS NOT EQUAU TO #1$ 

SSUBER, 

3TK2 

I CHECK tHE PSW ON THE StACR 

IBRANCH IF OK 

I'RtJ PSW NOT EQUAU TO 201 

RANO.Ci 

,*4 

STK3 

ICHECK THE DATA ON fHE StACK 

IBRANCH IF OK 

l5fK3 NOT EQUAU TO RAND, 6 

RANOiOi 

,♦4 

STK4 

ICHECK THE OATA ON THE STACK 

IBRANCH J* OK 

|$f K4 NOT EQUAU TO RAND, D 

RAND.Ai 

,♦4 

5TK5 

ICHECK THE DATA ON THE STACK 

IBRANCH IF OK 

iSTK3 NOT EQUAU TO RAND, A 

RANO.B, 

,+4 

STK6 

ICHECK THE DATA ON THE STACK 

IBRANCH IF OK 

ISTK6 NOT EQUAU TO RAND » B 

#31 1 

<SP) 

IRESET THE STACK 
{RESTORE tHE STATUS <T«BIT| 



MAINDEC 

D8KEBA • 

1038 

1039 

1040 

1041 

1042 

1043 

1044 

1045 

1046 

1047 

1048 

1049 

1050 

1051 
105? 

1053 

1054 

1055 

1056 

1057 

1058 

1059 

1060 
1061 
1062 

1063 

1064 

1065 

1066 

1067 

1068 

1069 

1070 

1071 

1072 

1073 

1074 

1075 

1076 

1077 

1078 

1079 

1080 
1081 
1082 

1083 

1084 

1085 

1086 

1087 

1088 

1089 

1090 

1091 
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11 TEST 131 EXERCISE FMUl R3 


I TEST 131 EXERCISE FMUL (PDP-11 FLOATING MULTIPLY INSTRUCTION) 

J RAND , A , RANO , 8 • RAND , C, RAND , P • ANS1,ANS2 

j STACK POINTER » R3 


e05l42 

012703 

000604 


TST13I 

MOV 

#STACK0»R3 

iset up the stack pointer 

205146 

004767 

006426 



JSR 

PC, PUSHR 

J'PUT THE DATA ON THE STACK 

205152 

300240 




NQP 



205154 

375023 




FMUL* 

R3 

IFLQATING MULTIPLY ON THE R3 STACK 

205156 

013767 

177776 

173430 

111 

MOV 

•#PS, SP3W 

ISAVE PROCESSOR STATUS 

205164 

010367 

173426 



MOV 

R3, SSP 

1 SAVE THE STACK POINTER 

205170 

026767 

173454 

173416 


CMP 

SMULPS, SP3W 

ICHECK THE PROCESSOR STATUS 

205176 

001401 




BEQ 

■ 44 

10RANCH Jf OK 

205200 

104000 




HLT 


|PSW NOT EQUAL TO SMULPS 

205202 

105767 

173406 



TSTB 

SPSW 

ICHECK FOR ERROR 

205206 

100423 




BM J 

2$ 

IBRANCH IP ERROR 

205210 

012767 

000610 

173452 


MOV 

4STACK4, SAVSTK 

(SAVE PROPER STACK ADDRESS FOR TYPING 

205216 

026767 

173446 

173372 


CMP 

SAVSTK, SSP 

ICHECK THE STACK POINTER 

205224 

001401 




BEQ 

■ 64 

1 BRANCH IP OK 

205226 

104000 




HLT 


1 STACK POINTER NOT EQUAL TO PSTACK4 

205230 

026767 

173416 

173352 


CMP 

SMULli ANSI 

ICHECK THE ANSWER 

205236 

001401 




BEQ 

■ *4 

I0RANCH IF OK 

205240 

104000 




HLT 


ILEFT HALF OF ANSWER WRONG 

205242 

026767 

173406 

173342 


CMP 

SMULli ANS2 

ICHECK THE ANSWER 

205250 

001401 




BEQ 

■ *4 

IBRANCH ip OK 

205252 

104000 




HLT 


1 RIGHT HALF OF ANSWER WRONG 

205254 

000451 




BR 

31 


205056 

012767 

000604 

173404 

23? 

MOV 

#5TACK0iSAVSTK 

ISAVL STACK ADDRESS FOR TYPING 

205264 

026767 

173400 

173324 


CMP 

SAVSTK, SSP 

ICHECK THE STACK POINTER 

205272 

001401 




BEQ 

, *4 

/BRANCH IF OK 

205274 

104000 




HLT 


1 STACK POINTER FOULED UP 

205276 

022767 

005156 

173274 


CMP 

ns, STKl 

I CHECK THE RT I ADDRESS ON THE STACK 

205304 

001401 




BEQ 

,*4 

IBRANCH IF OK 

205306 

104000 




HLT 


l*RT l ADDRESS NOT EQUAL TO (*1S 

205310 

026767 

173342 

173264 


CMP 

SMUlER, STK2 

ICHECK THE PSW ON THE STACK 

205316 

001401 




BEQ 

■ ♦4 

IBRANCH IF OK 

205320 

104000 




HLT 


1 RT I PSW NOT EQUAL TO 200 

205322 

026767 

173276 

173254 


CMP 

RANO.C, STK3 

ICHECK THE DATA ON THE STACK 

205330 

001401 




BEQ 

,*4 

IBRANCH IF OK 

205332 

104000 




HLT 


JSTK3 NOT EQUAL TO RAND « C 



) 


) 


MAINDEC-U-OBKEB*A KE11F (PDP-11 FIS) EXERCISER, 

0BKEBA.P11 TEST 131 EXERCISE FMUU R3 


1092 

005334 

026767 

173266 

173244 


CMP 

1093 

005342 

00142X 




BE8 

1094 

0-03344 

104000 




HIT 

1095 







1096 

005346 

026767 

173246 

173234 


C HP 

1097 

003354 

00X40X 




9EQ 

1098 

005356 

104000 




H(.T 

1099 







1X00 

005360 

026767 

173236 

173224 


CMP 

110X 

005366 

00X40X 




3EQ 

1102 

005370 

104000 




H|»T 

1103 







1104 

005372 

012716 

005400 



MQV 

1105 

005376 

000002 




RTI 

1106 







1107 

005400 

104400 



3$ : 

SCOPE 

1108 







1109 







1110 





| *#»#• 


U1X 





itest 

14 1 

1112 





1 

RAND,- 

1113 





I 

STACK 

1114 





1 *«»*• 


1115 







1116 

005402 

012704 

000604 


TST14J 

MQV 

1117 

00540 6 

004767 

006166 



JSR 

1118 







1119 

005412 

000240 




NOP 

1120 
f 4 1)4 

005414 

075034 




F0IV+ 

X 12# 
1122 

005416 

013767 

177776 

173170 

IS 8 

MQV 

1123 

005424 

010467 

173166 



MOV 

1124 

005430 

026767 

173224 

173156 


CMP 

1125 

005436 

001401 




BEO 

1126 

005440 

104000 




NUT 

1127 







1128 

005442 

105767 

173146 



TSTB 

1129 

005446 

100423 




BMJ 

1X30 

1131 

005450 

012767 

000610 

173212 


MOV 

1132 

005456 

026767 

173206 

173132 


CMP 

1133 

005464 

001401 




BEO 

1134 

4 i TE 

005466 

104000 




HUT 

Hop 

1136 

005470 

026767 

173166 

173112 


CMP 

1137 

005476 

001401 




BEO 

1138 

005500 

104000 




hut 

1139 







1140 

005502 

026767 

173156 

17.3102 


CMP 

1141 

005510 

001401 




BEQ 

114 2 

005512 

104000 




HUT 

1143 







1144 

005514 

000451 




BR 


1145 o 


HAqYU,$20 22«AU5i72 H|40 PAGE 24 


RAND.Di STK4 
i *4 

I CHECK the DATA ON THE STACK 

(BRANCH JF OK 

(STK4 NOT EQUAL TO RAND , D 

RAND, A, STK5 
i*4 

1 CHECK THE DATA ON THE STACK 

I'BRANCH IF OK 

(STK5 NOT EQUAL TO RAND, A 

RANO.B, STK6 
, *4 

(CHECK THE DATA ON THE STACK 

(BRANCH IF OK 

JSTK6 NOT EQUAL TO RAND.B 

#3S, (SP) 

(RESET THE STACK 
(RESTORE THE STATUS <T»BIT) 

EXERCISE FOJV 
ijRAND.B / RANO.C 
POINTER 1 R4 

{ POPvil FLOATING DIVIDE INSTRUCTION! 
,RANB,D * ANSI, ANS2 

#STACK0iR4 
PCi PWSHR 

(SET UP THE STACK POINTER 
(PUT THE QATA ON THE STACK 

R4 

IFIQATIN? DIVIDE ON THE R4 STACK 

»«PS« SPSW 

R4| SSP 

SOIVPSi spsw 

,*4 

(SAVE PROCESSOR STATUS 

(SAVE the stack pointer ^ 

(CHECK THE PROCESSOR STAfUS 

IBRANCH IF OK 

|PSW NOT EOUAk TO SOIVPS 

spsw 

21 

(CHECK FOR ERROR 
(BRANCH IF ERROR 

PSTACK4, SAVSTK 
SAVSTK, SSP 
, *4 

(SAVE PROPER STACK ADDRESS FOR TYPING 
ICHECK THE STACK POINTER 
IBRANCH IF OK 

(STACK POINTER NOT EQUAU TO PSTACK4 

SOI VI * ANSI 
, *4 

(CHECK THE ANSWER 
(BRANCH IF OK 

IUEFT HAUF OF ANSWER WRONG 

SO I V2i ANS2 
,*4 

(CHECK THE ANSWER 
(BRANCH IF OK 

IRJGHT HAUF OF ANSWER WRONG 

3S 




*» 



) 



MAINDEC 

•i i®0BKE9^ A 

KE11F 

(PDP-11 FIS) EXERCISER, 

DBKEBA.PU 

TEST 141 


EXERCISE “01 V 

R4 

1146 

205516 

012767 

000634 

173144 2S i 

MOV 

1147 

205524 

026767 

173140 

173364 

CMP 

1148 

205532 

301431 



BEG 

1149 

205534 

104030 



RET 

1150 






1151 

205536 

022767 

005416 

173034 

CMP 

1152 

205544 

001431 



BEG 

1153 

205546 

104000 



hut 

1154 






1155 

205550 

026767 

173112 

173024 

CMP 

1156 

205556 

001401 



BEG 

1157 

205560 

104000 



HIT 

1158 






1159 

205562 

026767 

173036 

173014 

CMP 

1160 

205570 

001401 



BEG 

1161 

205572 

104000 



HUT 

1162 






1163 

205574 

026767 

173026 

173004 

CMP 

1164 

205602 

001401 



8EQ 

1165 

205604 

104000 



hut 

1166 






1167 

205606 

026767 

173006 

172774 

CMP 

1168 

205614 

001401 



BEG 

1169 

205616 

104000 



H1.T 

1170 






1171 

205620 

026767 

172776 

172764 

CMP 

1172 

205626 

001401 



BEQ 

1173 

205630 

104000 



HUT 

1174 






1175 

205632 

012716 

005640 


MOV 

1176 

205636 

000002 



RTI 

1177 






1178 

205640 

104400 


3S : 

SCOPE 


1179 

1180 
1181 
1182 

1183 

1184 

1185 

1186 


1187 

205642 

012705 

000604 


TST15* 

MOV 

1188 

205646 

004767 

005726 



JSR 

1189 







1190 

205652 

000240 




NOP 

1191 

205654 

075005 




FAPD + 

1192 




172730 



1193 

205656 

013767 

177776 

IS: 

MOV 

1194 

205664 

010567 

172726 



MOV 

1195 

205670 

026767 

172734 

172716 


CMP 

1196 

205676 

001401 




BEG 

1197 

1198 

205700 

104000 




HUT 

1199 

205702 

105767 

172706 



TSTB 
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45TACK0, SAVSTK (SAVE STACK ADDRESS FOR TYPING 


SAVSTKi 

,+4 

SSP 

(CHECK THE STACK POINTER 

(BRANCH IF OK 

(STACK POINTER FOUUED UP 

ns, 

i *4 

STK1 

ICHECK THE RTI ADDRESS ON THE STACK 
(BRANCH IF OK 

(RTI ADDRESS NOT EQUAU TO *1S 

SDIVER, 
« *4 

STK2 

ICHECK THE PSW ON THE STACK 

(BRANCH IF OK 

(RTI PSW NOT EQUAU TO 200 

RAND, C, 
i 44 

STK3 

(CHECK THE DATA ON THE STACK 

(8RANCH IF OK 

|StK3 NOT EQUAU TO RANO.C 

RAND.D, 
, *4 

STK4 

ICHECK THE DATA ON THE STACK 
(BRANCH JF OK 
1 STK4 NOT EQUAU TO RAND , 0 

RAND, A, 
, *4 

STK5 

(CHECK THE DATA ON THE STACK 
(BRANCH JF OK 
J STK5 NOT EQUAU TO RAND, A 

RAND, 8, 
, *4 

STK6 

(CHECK THE DATA ON THE STACK 

(BRANCH JF OK 

(STK6 NOT EQUAU TO RAND i B 

#3S * 

esp) 

(RESET THE STACK 
(RESTORE THE STATUS <T*B|T * 


PSTACK0 

PC, 

,R5 

PUSHR 

J SET jp THE STACK POINTER 
I PUT THC'OATA on the stack 

R5 


jFUOATInG ado on the R5 STACK 

WS, 

R5, 

SApDPS, 
, *4 

SPSW 

SSP 

SPSW 

(SAVE PROCESSOR STATUS 
(SAVE THE STACK POINTER 
(CHECK THE PROCESSOR STATUS 

(BRANCH IF OK 

(PSW NOT EQUAL TO SAODPS 

SPSW 


(CHECK FOR ERROR 


| a##*#*#####*#######*#####*### ««****♦**#*♦#*• **••***»*##* 

ITEST 151 EXERCISE FADO (PDPiU FLOATING ADD INSTRUCTION) 

) RANO,A|RAND,B * RAND, C, RAND, D k AN?liANS2 

J STACK POINTER S R5 

| #«*##*##### ##############*##*# #••###*#**#•••#••##•########*••*♦♦••••♦•• 
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?s 


1 BRANCH IF ERROR 

ASTACK4 
SAVSTK j 

i *4 

, SAVSTK 
SSP 

1 SAVE PROPER STACK ADDRESS FOR TYPJNG 
ICHECK THE STACK POINTER 
I8RANCH IF OK 

{STACK POINTER NOT EQUAl. TO AST ACK4 

SAPDIi 

,*4 

ANSI 

1 CHECK THE ANSWER 
jBRANCH IF OK 

ILEFT half of answer wrong 

SAPD2, 

,*4 

ANS2 

ICHECK THE ANSWER 
1 BRANCH IF OK 

| RIGHT HALF OF ANSWER WRONG 

31 



#STA0K0 

SAVSTK, 

iSAVSTK 

SSP 

(SAVE STACK ADDRESS FOR TYPING 
ICHECK THE STACK POINTER 
/BRANCH IF OK 
/STACK POINTER FOULED UP 

ns» 

i*4 

STK1 

ICHECK THE RTJ ADDRESS ON THE STACK 
IBRANCH IF OK 

|Rtl ADDRESS NOT EQUAL tO *1* 

SAQOERi 

• *4 

STK2 

ICHECK THE PSW ON THE STACK 

{BRANCH IF OK 

|RTI PSW NOT EQUAL TO W 

RAND, Ci 
,*4 

STK3 

ICHECK THE QATA ON THE STACK 
/BRANCH IF OK 
1 StK3 NOT EQUAL TO RAND', C 

RANO.Oi 

i*4 

STK4 

ICHECK THE DATA ON THE STACK 

/BRANCH IF OK 

ISTK4 NOT EQUAL TO RAN0.O 

RAND, A, 
.*4 

STK5 

/CHECK THE DATA ON THE STACK 
IBRANCH IF OK 
1 STK5 NOT EQUAL TO RAND, A 

RAND, S, 
,*4 

STK6 

ICHECK THE DATA ON THE STACK 
/BRANCH IF OK 
1 STK6 NOT EQUAL TO RAND , B 

*35. 

(SR) 

/RESET THE STACK 
/RESTORE THE STATUS (TiBjT) 




MAINDEC-il-DBKEB-A 
DBKEBA.Pll TEST 16 

1251 

1252 

1253 

1254 

1255 

1256 

1257 

1258 £06102 012736 

1259 £06106 004767 

1260 

1261 £06112 000240 

1262 £06114 375016 

1263 

1264 £06116 013767 

1265 £06124 010667 

1266 £06130 026767 

1267 £06136 001401 

1268 £06140 104000 

1269 

1270 £06142 105767 

1271 £06146 100424 

1272 

1273 £06150 012767 

1274 £06156 026767 

1275 £06164 001401 

1276 £06166 104000 

1277 

1278 £06170 026767 

1279 £06176 001401 

1280 £06200 104000 

1281 

1282 £06202 026767 

1283 £06210 001401 

1284 £06212 104000 

1285 

1286 £06214 024646 

1287 £06216 000451 

1288 

1289 £06220 012767 

1290 £06226 026767 

1291 £06234 001401 

1292 £06236 104000 

1293 

1294 £06240 322767 

1295 £06246 301401 

1296 £06250 104000 

1297 

1298 £06252 026767 

1299 £06260 001401 

1300 £06262 104000 

1301 

1302 £06264 026767 

1303 £06272 001401 

1304 £06274 104000 
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EXERCISE FSUB SP 


{TEST 16I EXERCISE FSUB (PDPjli Floating SUBTRACT INSTRUCTION) 

i RAND, A,RAND,B « RAND . C , RAND , D » ANSl,ANS2 

} STACK POINTER ? SP 

}##**# 9 #«*#***#*****#**«*»#**»«******««»*»»**»**»************** # ******* # 


000604 


TST16I 

MOV 

PSTACK0 

,SP 

{SET UP THE STACK POINTER 

005466 



JSR 

PC, 

PUSHR 

{PUT THE DATA ON THE STACK 




NOP 

FSUB* 

SP 


I'FUOATlNG SUBTRACT ON THE SP STACK 

177776 

172470 

IS: 

MQV 

**PS, 

SPSW 

{SAVE PROCESSOR STATUS 

172466 


MOV 

SP, 

SSP 

ISAVE THE STACK POINTER 

172504 

172456 


CMP 

SSUBPS, 

SPSW 

(CHECK THE PROCESSOR STATUS 


BEG 

,T4 


{BRANCH IP OK 




HUT 



IPSW NOT EGUAU TO SSUBPS 

172446 



TSTB 

SPSW 


{CHECK FOR ERROR 



BMJ 

2S 


{BRANCH JF ERROR 

000610 

172512 


MOV 

PSTACK4 

SAVSTK 

(SAVE PROPER STACK AOORESS POR TYPING 

172506 

172432 


CMP 

SAVSTK, 

SSP 

{CHECK THE STACK POINTER 


BEG 

,♦4 


IBRANCH IF OK 




HUT 



ISTACK POINTER NOT EGUAU TO PSTACK4 

172446 

172412 


CMP 

SSUB1, 

ANSI 

{'CHECK THE ANSWER 



BEG 

, *4 


{'BRANCH IP OK 




HUT 



IUEPT HAUP GF ANSWER WRONG 

172436 

172402 


CMP 

SSUB2, 

ANS2 

{CHECK THE ANSWER 



BEG 

, *4 


{'BRANCH IF OK 




HUT 



{RIGHT HAUP OP ANSWER WRONG 




CMP 

•ISP), 

MSP) 

{RESTORE THE STACK 




BR 

3S 



000600 

172442 

21 5 

MOV 

PSTKi, 

SAVSTK 

{SAVE PROPER STACK ADDRESS FOR TYPING 

172436 

172362 


CMP 

SAVSTK, 

SSP 

{CHECK THE STACK POINTER 




BEG 

, *4 


IBRANCH IP OK 




NUT 



{STACK POINTER FOUUED UP 

006116 

172332 


CMP 

PIS, 

STK1 

(CHECK THE RTJ ADDRESS ON THE STACK 




BEQ 

,*4 


{BRANCH IF OK 




HUT 



j RT I ADDRESS NOT EGUAU TO «1S 

172370 

172322 


CMP 

SSUBER, 

STK2 

{CHECK THE PSW ON THE STACK 



BEG 

, *4 


{BRANCH IF OK 




HUT 



1 RT J PSW NOT EGUAU TO 200 

172334 

172312 


CMP 

RAND , C , 

STK3 

{CHECK THE DATA ON THE STACK 




BEQ 

,*4 


{BRANCH JF OK 




HUT 



{ STK3 NOT EQUAU TO RAND , C 



MAINDEC 

*ll-DBKEB»A 

KE11F 

(PDP-11 FIS) EXERCISER, 

DBKEBA.PU 

TEST 161 

EXERCISE 

: FSUB 

SP 

1335 







1306 

706276 

026767 

172324 

172302 


CMP 

1307 

706304 

301401 




BEO 

1308 

£06306 

104000 




HUT 

1309 







1310 

006310 

026767 

172304 

172272 


CMP 

1311 

006316 

001401 




BEQ 

1312 

706320 

104000 




HLT 

1313 







1314 

706322 

026767 

172274 

172262 


CMP 

1315 

706330 

001401 




BEQ 

1316 

706332 

104000 




HLT 

1317 







1318 

706334 

012716 

006342 



MOV 

1319 

-4 lOfll 

706340 

000002 




RT I 

lodw 

1321 

706342 

104400 



3$ J 

SCOPE 

1322 







1323 







1324 





j #»*»# 


1325 





ITEST 

171 

1326 





) 

RAND, i 

1327 





) 

STACK 

1328 





)#»»«# 


1329 







1330 

706344 

012700 

000604 


TST17I 

MQV 

1331 

706350 

004767 

005224 



JSR 

1332 







1333 

706354 

000240 




NQP 

1334 

4 T1R 

706356 

075020 




FMUL* 

1336 

706360 

013767 

177776 

172226 

IS! 

MQV 

1337 

706366 

010067 

172224 



MOV 

1338 

706372 

026767 

172252 

172214 


CMP 

1339 

706400 

001401 




BEQ 

1340 

706402 

104000 




HLT 

1341 







1342 

706404 

105767 

172204 



TSTB 

1343 

706410 

100423 




BMI 

1344 







1345 

706412 

012767 

000610 

172250 


MOV 

1346 

706420 

026767 

172244 

172170 


CMP 

1347 

706426 

001401 




BEQ 

1346 

706430 

104000 




HLT 

1349 







1350 

706432 

026767 

172214 

172150 


CMP 

1351 

706440 

001401 




BEQ 

1352 

706442 

104000 




HLT 

1353 







1354 

706444 

026767 

172204 

172140 


CMP 

1355 

706452 

001401 




BEQ 

1356 

706454 

104000 




HLT 

1357 







1358 

^^56 

000451 




BR 
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RAND , 0 1 STK4 /CHECK THE DATA ON THE STACK 
,*4 | BRANCH IF OK 

|STK4 NOT EQUAL TO RAND , 0 

RAND, A, STK5 i'CHECK THE DATA ON THE STACK 
, *4 IBRANCH IF OK 

I STK5 NOT EQUAL TO RAND, A 

RAND. 8, STK6 i'CHECK THE DATA ON THE STACK 

,*4 /BRANCH IF OK 

/STK6 NOT EQUAL TO RANO.B 

#3S| (SP> IRESET THE STACK 

IRESTORE THE STATUS {T-BJTl 


EXERCISE FMUL (POPiil FLOATING MULTIPLY INSTRUCTION) 
iRANO.B • RAND.CiRANO.D « ANSliANS2 
POINTER * RB 

•*•*»**##«*##•*#••**•*•#•*#••*••#•*•*•*•*•••#•*•*•*»** 


#STACK0i R 0 
PCi PUSHR 

| SET UP THE STACK POINTER 
IPUT THE DATA ON THE STACK 


R0 

/FLOATING MULTIPLT ON THE R0 

STACK 

PPPSi SPSW 

R0, S?P 

SMUIPS, SPSW 
.*4 

/SAVE PROCESSOR STATUS 
/SAVE THE STACK POINTER 
ICHECK THE PROCESSOR STATUS 
/BRANCH IF OK 
/PSW NOT EQUAL TO SMULPS 


SPSW 

2S 

/Check for ERROR 

IBRANCH ir ERROR 


#STACK4,SAVSTK 
SAVSTK, SSP 
• *4 

/SAVE PROPER STACK ADDRESS FOR TYPJNG 
ICHECK THE STACK POINTER 
/branch IF OK 

1 STACK POINTER NOT EQUAL TO PSTACK4 

SMULli ANSI 
,*4 

ICHECK THE ANSWER 
IBRANCH IF OK 

/LEFT half OF ANSWER WRONG 


$MUL2i ANS2 
,*4 

ICHECK THE ANSWER 
/BRANCH IF OK 

/RIGHT HALF OF ANSWER WRONG 



o 


3$ 
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-11-DBKEB-A 

KE11F i 

[PDP-11 FIS) EXERCISER, 
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OSKEBA.Pil 

TEST 17| 


EXERCISE FMUL 

R0 



1359 

1360 

f 26460 

012767 

000604 

172202 2$s 

MQV 

#STACK0,SAVSTK 

ISAVE STACK ADDRESS FOR TYPING 

1361 

£ 26466 

026767 

172176 

172122 

CMP 

SAVSTK | SSP 

(CHECK THE STACK POINTER 

1362 

£36474 

201401 



8EQ 

• *4 

jBRANCH IF OK 

1363 

£06476 

104000 



HLT 


(STACK POINTER FOULED UP 

1364 

1365 

£36500 

022767 

006360 

172072 

CMP 

Pis, STK1 

(CHECK THE RTJ ADDRESS ON THE 

1366 

e06506 

001401 



8EQ 

, *4 

(BRANCH IF OK 

1367 

4 t 4 B 

£06510 

104000 



HLT 


(RTJ ADDRESS NOT EQUAL TO #1$ 

1368 

1369 

£06512 

026767 

172140 

172062 

CMP 

SMULERi STK2 

(CHECK THE PSW ON THE STACK 

1370 

£06520 

001401 



BEQ 

i*4 

(BRANCH IF OK 

1371 

£06522 

104000 



HLT 


(RTI PSW NOT EQUAL TO 200 

1372 

1373 

£06524 

026767 

172074 

172052 

CMP 

RAND.C, STK3 

(CHECK THE DATA ON THE STACK 

1374 

£06532 

001401 



BEQ 

,♦« 

(BRANCH If OK 

1375 

£06534 

104000 



HLT 


(SYK3 NOT EQUAL TO RANO.C 

1376 

1377 

£06536 

026767 

172064 

172042 

CMP 

RAND.D, STK4 

(CHECK THE DATA ON THE STACK 

1378 

£06544 

001401 



BEQ 

, *4 

(SRANCH IF OK 

1379 

4 t 6 /9 

£06546 

104000 



HLT 


jSTK4 NOT EQUAL TO RAND.D 

1480 

1381 

£06550 

026767 

172044 

172032 

CMP 

RAND, A, STK5 

(CHECK THE DATA ON THE STACK 

1382 

£06556 

001401 



B|Q 

, 64 

IBRANCH IF OK 

1383 

£06560 

104000 



HLT 


l$?K5 NOT EQUAL TO RAND, A 

1384 

1385 

£06562 

026767 

172034 

172022 

CMP 

RAND.B, STK6 

(CHECK THE DATA ON THE STACK 

1386 

£06570 

001401 



BEQ 

i *4 

(BRANCH If OK 

1387 

£06572 

104000 



HLT 


|5?K6 NOT EQUAL TO RAN0.B 

1388 








1389 

£06574 

012716 

006602 


MQV 

#31, <SP> 

(RESET TH| STACK 

1390 

£06600 

000002 



RTI 


(RESTORE THE STATUS (T-BIT) 

1391 








1392 

£06602 

104400 


3S • 

SCOPE 




1393 

1394 

1395 

1396 

1397 

1398 
139? 
1400 


1401 

£06604 

312701 

000604 


TST20I 

MQV 

PSTACK0 

,R1 

1402 

£06610 

004767 

004764 



JSR 

PCl 

PUSHR 

1403 









1404 

£06614 

000240 




NQP 



1405 

£06616 

075031 




FDIV+ 

R1 


1406 









1407 

£06620 

013767 

177776 

171766 

1$! 

MOV 

P#PS, 

SPSW 

1408 

£06626 

010167 

171764 



MQV 

Ri. 

SSP 

1409 

£06632 

026767 

172022 

171754 


CMP 

SO I VPS, 

SPSW 

1410 

£06640 

001401 




BEQ 

, *4 


1411 

£06642 

104000 




HLT 




| #*»##*### t ######### #&##*####*#•####•#*# ###*###<§###* t ####♦##*# ^ #*♦#**# 

| Test 201 EXERCISE FolV (PDPill FLOATING DIVIDE INSTRUCTION) 

j RAND, A«RANO.B f RAND, C, RAND.D * ANS1,ANS2 

I STACK POINTER * R1 

I *»*»*#*«#•***#**#*•»*##»*#*#*#**«»* * ,< - 1 •••»**#*«« ««'**»«»®****»®« # ' <} ' Bi * # **** # * 

I SET JP THE STACK POINTER 
» PUT THE DATA ON THE STACK 


(FLOATING DIVIDE ON THE Rl STACK 

(SAVE PROCESSOR STATUS 
(SAVE THE STACK POINTER 
(CHECK THE PROCESSOR STATUS 
(BRANCH IF OK 
(PSW NOT EQUAL TO SDIVPS 


1412 



MAINDEC-U-DBKE3-A KEilF <PDP*il FJSJ EXERCISER, 


08KE8A.PU 

TEST 205 

EXERCISE FOJV 

Ri 

1413 

206644 

105767 

171744 


TSTB 

1414 

206650 

100423 



BM! 

1415 

1416 

206652 

212767 

000610 

172010 

MOV 

1417 

206660 

326767 

172004 

171730 

CMP 

1418 

206666 

301401 



BEQ 

1419 

206670 

104000 



HLT 

1420 





CMP 

1421 

206672 

026767 

171764 

171710 

1422 

206700 

001401 



BEQ 

1423 

206702 

104000 



HLT 

1424 





CMP 

1425 

206704 

026767 

171754 

171700 

1426 

206712 

001401 



BEQ 

1427 

206714 

104000 



HLT 

1428 





BR 

1429 

1430 

1431 

206716 

000451 



206720 

012767 

000604 

171742 2$ ; 

MOV 

1432 

206726 

026767 

171736 

171662 

CMP 

1433 

206734 

001401 



BEO 

1434 

1435 

1436 

206736 

104000 



HLT 

206740 

022767 

006620 

171632 

CMP 

1437 

206746 

001401 



BEQ 

1438 

1439 

1440 

206750 

104000 



HLT 

206752 

026767 

171710 

171622 

CMP 

1441 

206760 

001401 



BEQ 

1442 

1443 

1444 

206762 

104000 



HLT 

206764 

026767 

174634 

171612 

CMP 

1445 

206772 

001401 



BEQ 

1446 

206774 

104000 



HLT 

1447 






1448 

206776 

026767 

171624 

171602 

CMP 

1449 

207004 

001401 



BEQ 

1450 

207006 

104000 



HLT 

1451 




171572 

CMP 

1452 

e070i0 

026767 

171604 

1453 

207016 

001401 



BEQ 

1454 

1455 

1456 

207020 

104000 



HLT 

207022 

026767 

171574 

171562 

CMP 

1457 

207030 

001401 



BEQ 

1458 

207032 

104000 



HLT 

1459 





MQV 

1460 

207034 

012716 

007042 


1461 

207040 

000002 



RTJ 

1462 





SCOPE 

1463 

207042 

104400 


3$: 


1464 



MACY11 , 620 22-AUG.72 111*0 PAGE 30 


SPSW (CHECK FOR ERROR 

2S | BRANCH IF ERROR 

#STACK4 , SAVSTK JSAVE PROPER STACK ADDRESS FOR TYPJNG 
SAVSTK, $SP | CHECK THE STACK POINTER 

, *4 IBRANCH JF OK 

(STACK POINTER NOT EQUAL TO #STaCK4 

SO ; VI i ANSI ICHECK THE ANSWER 

,*4 IBRANCH IF OK 

(LEFT HALF OF ANSWER WRONG 

SOI V2« ANS2 ICHECK THE ANSWER 
,*4 IBRANCH IF OK 

(RIGHT HALF OF ANSWER WRONG 

3S 

4STACK0, SAVSTK (SAVE STACK ADDRESS FOR TYPING 
SAVSTK, SSP (CHECK THE STACK POINTER 

,44 (BRANCH IF OK 

(STACK POINTER FOULED UP 

fit, STKl (CHECK THE RTJ ADDRESS ON the STACK 
,♦4 (BRANCH IF OK 

(RTJ AODRESS NOT EQUAL To #U 

SOIVER, STK2 (CHECK THE PSW ON THE STACK 
,44 IBRANCH IF OK 

(RTJ PSW NOT EQUAL fO 200 

RANO.C, STK3 (CHECK THE OAT* ON THE STACK 
,44 (BRANCH IF OK 

| StK3 NOT EQUAL TO RAND.C 

RANO.D, STK* (CHECK THE DATA ON THE STACK 
,44 (BRANCH JF OK 

(STK4 NOT EQUAL TO RANO.O 

RANQ , A, STK5 JCHECK THE DATA ON THE STACK 

,44 IBRANCH IF OK 

I STK5 NOT EQUAL TO RAND, A 

RANO.B, STK6 ICHECK THE DATA ON THE STACK 

,44 (BRANCH IF OK 

I STK6 NOT EQUAL TO RANO.B 

#31, (SP> (RESET THE STACK 

(RESTORE THE STATUS (T*B1T) 




o 

MAINDECVU’OBKEB-A KEilF <POP-U FIS) EXERCISER, MACYU.620 22»AUGi72 U|40 PACE 31 

DBKEBA.PU TEST 211 EXERCISE FADD R2 

1465 


1466 





1 



1467 





1 TEST 

211 

EXERCISE FADD 

( PPPvll FUOATJNG ADO INSTRUCTION) 

1468 






RAND, A 

,RANO,B * RAND , C 

,RANO,D > ANSI, ANS2 

1469 





J 

STACK 

POINTER » R2 


1470 





J 

e ««•» 



1471 

1472 

707044 

312702 

000604 


TST21I 

MOV 

#STACK0»R2 

1 SET UP THE STACK POINTER 

1473 

707050 

004767 

004524 



jsr 

PC, PySHR 

1 PUT THE DATA ON THE STACK 

1474 









1475 

707054 

000240 




NQP 



1476 

707056 

075002 




F ADD* 

R2 

IFU'OATING ADD ON THE R2 STACK 

1477 

1476 

707060 

013767 

177776 

171526 

1SS 

MQV 

SPPSi SPSW 

(SAVE PROCESSOR STATUS 

1479 

707066 

010267 

171524 



MOV 

R2, SSP 

(SAVE the stack pointer 

I486 

707072 

026767 

171532 

171514 


CMP 

SADDPS, SPSW 

1 CHECK THE PROCESSOR STATUS 

1481 

707100 

001401 




BEQ 

t *4 

IBRANCH IF OK 

1482 

707102 

104080 




NET 


j'PSW NOT EQUAU TO SADOPS 

1483 









1484 

B 07104 

105767 

171504 



TSTB 

SPSW 

ICHECK FOR ERROR 

1485 

707110 

100423 




8M I 

2S 

(BRANCH IF ERROR 

1486 

1487 

707112 

012767 

000610 

171550 


MOV 

PSTACK4, SAVSTK 

(SAVE PROPER STACK ADDRESS FOR TYPING 

I486 

707120 

026767 

171544 

171470 


CMP 

SAVSTK, SSP 

(CHECK THE STACK POINTER 

1489 

707126 

001481 




BEQ 

i *4 

IBRANCH IF OK 

1490 

707130 

104000 




HIT 


1 STACK POINTER NOT EQUAU TO #STACK4 

1491 

1492 

707132 

026767 

171474 

171450 


CMP 

SADD1, ANSI 

(’CHECK THE ANSWER 

1493 

707140 

001401 




BEQ 

t *4 

IBRANCH JF OK 

1494 

707142 

104000 




HIT 


IUEFT HAUF OF ANSWER WRONG 

1495 

1496 

707144 

026767 

171464 

171440 


CMP 

SA002, ANS2 

(CHECK THE ANSWER 

1497 

707152 

001401 




BEQ 

t *4 

(BRANCH IF OK 

1498 

707154 

104000 




HUT 


(RIGHT HAUF OF ANSWER WRONG 

1499 









1500 

707156 

000451 




BR 

3$ 


1501 









1502 

707160 

012767 

000604 

171502 

2$ s 

MOV 

4STACK0, SAVSTK 

(SAVE STACK ADDRESS FQR TYPING 

1503 

707166 

026767 

171476 

171422 


CMP 

SAVSTK, SSP 

JCHECK THE STACK POINTER 

1504 

707174 

001401 




BEQ 

,*4 

(BRANCH IF OK 

1505 

707176 

104000 




hut 


(STACK POINTER FQUUED UP 

1506 

1507 

707200 

022767 

007060 

171372 


CMP 

nii stki 

ICHECK THE RTJ ADDRESS ON THE STACK 

1508 

707206 

001401 




BEQ 

i *4 

(BRANCH JF OK 

1509 

707210 

104000 




hut 


(RTJ ADDRESS NOT EQUAU TO PIS 

1510 









1511 

707212 

026767 

171420 

171362 


CMP 

SADDER, STk2 

ICHECK THE PSW ON THE STACK 

1512 

707220 

001401 




BEQ 

,44 

(BRANCH IF OK 

1513 

707222 

104000 




HUT 


(RTJ PSW NOT EQUAU TO 200 

1514 

1515 

707224 

026767 

171374 

171352 


CMP 

RAND.C, STK3 

JCHECK THE DATA ON THE STACK 

1516 

707232 

001401 




BEQ 

,*4 

(BRANCH IF OK 

1517 

207234 

104000 




HUT 


1 S?K3 NOT EQUAU TO RAND', C 

1518 











MAINOEC-ll-DBKEB-A 
OBKEBA.Pli TEST 21 t 

1519 207236 026767 

1520 207244 001401 

1521 207246 104000 

1522 

1523 207250 026767 

1524 207256 001401 

1525 207260 104030 

1526 

1527 207262 026767 

1528 207270 001401 

1529 207272 104000 

1530 

1531 207274 012716 

1532 207300 000002 

1533 

1534 207302 104400 

1535 

1536 

1537 

1538 

1539 

1540 

1541 

1542 

1543 207304 012703 

1544 207310 004767 

1545 

1546 207314 000240 

1547 207316 075013 

1548 

1549 207320 013767 

1550 207326 010367 

1551 207332 026767 

1552 207340 001401 

1553 207342 104000 

1554 

1555 207344 105767 

1556 207350 100423 

1557 

1558 207352 012767 

1559 207360 026767 

1560 207366 001401 

1561 207370 104000 

1562 

1563 207372 026767 

1564 207400 001401 

1565 207402 104000 

1566 

1567 207404 026767 

1568 207412 001401 

1569 207414 104000 

1570 

1571 207416 200451 

1572 


KEUf 

(PDP-11 FJS) EXERCISER, 

MACY11, 

620 22- 

AUG-72 11 1 40 PAGE 

32 

EXERCJSE FADD 

R? 





171364 

171342 

CMP 

RAND, Qi 

STK4 

ICHECK THE DATA ON 

THE STACK 

SEQ 

, *4 


IBRANCH IP OK 




HIT 



1 STK4 NOT EQUAL TO 

RAND, 0 

171344 

171332 

CMP 

RAND, A, 

STK5 

ICHECK THE DATA ON 

THE STACK 


BEQ 

. *4 


IBRANCH IF OK 




HUT 



ISTK5 NOT EQUAL TO 

RAND,* 

171334 

171322 

CMP 

RAND,B| 

STK6 

ICHECK THE DATA ON 

THE STACK 


BEQ 

,*4 


IBRANCH IF OK 




HI.T 



JSTK6 NOT EQUAL TO 

RAND.B 

007302 


MOV 

*3S. 

(SP) 

(RESET THE STACK 



RTJ 



(RESTORE THE STATUS (T-BJT) 


3$ 5 

SCOPE 






TEST 221 EXERCISE FSUB (PDP-11 FLOATING SUBTRACT INSTRUCTION) 

RAND.AiRANO.B * RAND, C, RAND, D * AN|1|ANS2 
STACK POINTER S R3 


000604 

004264 


TST22I 

MOV 

JSR 

4STACK0 

PC, 

,R3 

PUSHR 

|SET UP THE STACK POINTER 
iPUf THE QATA ON THE STACK 





NOP 

FSUB* 

R3 


IFLOATING SUBTRACT ON THE R3 

STACK 

177776 

171264 

17130? 

171266 

171254 

ISi 

MOV 

MOV 

CMP 

beg 

HLT 

MRS, 

R3. 

SSUBPS, 

,*4 

SPSW 

SSP 

SPSW 

(SAVE PROCESSOR STATUS 
ISAVE THE STACK POINTER 
ICHECK THE PROCESSOR STATUS 
IBRANCH If OK 
iPSW NOT EQUAL TO SSUBPS 


171244 



TSTB 

BMJ 

SPSW 

2$ 


(CHECK for error 

IBRANCH IF ERROR 


000610 

171304 

171310 

171230 


MOV 

CMP 

BEQ 

HLT 

05TACK4 
SAVSTK, 
, *4 

, SAVSTK 
SSP 

(SAVE PROPER STACK ADDRESS FqR TYPING 
ICHECK THE STACK POINTER 
(BRANCH IF OK 

1 STACK POINTER NOT EQUAL TO PSTACK4 

171244 

171210 


CMP 

BEQ 

HLT 

SSUB1, 
, *4 

ANSI 

ICHECK THE ANSWER 
(BRANCH IF OK 

(LEFT HALF OF ANSWER WRONG 


171234 

171200 


CMP 

BEQ 

HLT 

SSUB2, 

,+4 

AN32 

(CHECK THE ANSWER 
1 BRANCH IF OK 

(RIGHT HALF OF ANSWER WRONG 





8R 

3S 





MA1NDEC 

-11«D8KEB-A 

KEilF 

(PDP-11 FIS) EXERCISER, 

DBKEBA.Pfl 

TEST 228 

EXERCISE 

FSUB 

R3 

1573 

F07420 

012767 

000604 

171242 

2S: 

MOV 

1574 

007426 

326767 

171236 

171162 


CMP 

1575 

007434 

001401 




BEQ 

1576 

007436 

104000 




HUT 

1577 







1578 

707440 

022767 

307320 

171132 


CMP 

1579 

707446 

001401 




BEO 

1580 

007450 

104000 




HUT 

1581 







1582 

707452 

026767 

171170 

171122 


CMP 

1583 

707460 

001401 




BEQ 

1584 

707462 

104000 




HUT 

1585 







1586 

707464 

026767 

171134 

171112 


CMP 

1587 

707472 

001401 




BEQ 

1588 

707474 

104000 




HUT 

1589 







1590 

707476 

026767 

171124 

171102 


CMP 

1591 

707504 

001401 




BEO 

1592 

707506 

104000 




HUT 

1593 







1594 

707510 

026767 

171104 

171072 


CMP 

1595 

707516 

001401 




BEQ 

1596 

707520 

104000 




HUT 

1597 







1598 

707522 

026767 

171074 

171062 


CMP 

1599 

707530 

001401 




BEQ 

1600 

707532 

104000 




hut 

1601 

1602 

707534 

012716 

007542 



MQV 

1603 

707540 

000002 




RTI 

1604 







1605 

107542 

104400 



3$ 8 

SCOPE 


1606 

1607 

1608 

1609 

1610 
1611 
1612 

1613 

1614 ? 07544 012704 000604 

1615 e07550 004767 004024 


MACYli, 

620 22»AUG»72 11|40 PAGE 33 

PSTACK0 

SAVSTK, 

, SAVSTK 
SSP 

(SAVE STACK ADDRESS FOR TYPING 
JCHECK THE STACK POINTER 
IBRANCH IF OK 
(STACK POINTER FOUUED UP 

PIS, 

,*4 

STK1 

JCHECK THE RTI ADORESS ON THE STACK 
IBRANCH IF OK 

j RTI ADDRESS NOT EQUAL TO #1S 

SSUBERi 
i *4 

STK2 

JCHECK THE PSW ON THE STACK 

(BRANCH IF OK 

jRTi PSW NOT EQUAU TO 200 

RAND, C, 
,*4 

STK3 

(CHECK THE DATA ON THE STACK 

IBRANCH IF OK 

(STK3 NOT EQUAU TO RAND.C 

RAND.O, 

,*4 

STK4 

(CHECK THE DATA ON THE STACK 

(BRANCH IF OK 

(STK4 NOT EQUAU TO RANO.D 

RAND, A, 

,44 

STK5 

(CHECK THE DATA ON THE StACK 

(BRANCH It OK 

(STK5 NOT EQUAU TO RANO, A 

RANO.Bi 

,*« 

STK6 

(CHECK THE DATA ON THE STACK 
(BRANCH IP OK 
( St K6 NOT EQUAU TO RANO, 9 

P3S, 

(|P) 

(RESET THE STACK 
(RESTORE THE STATUS <T*BIT) 


j **»*#**##*#*•*##«*»»**•*•#*•*#**##*«» «******#*#*§####*»#•*•*##*♦••#*••» 

I TEST 23 1 EXERCISE FHUU <POP*U FLOATING MULTIPLY INSTRUCTION) 

I RAND, A|RANP,B • RANO, C, RANO , 0 « AN§liAN$2 

I STACK POINTER i R4 

I »**•#«**#*#*•*■»*« a «#«****»****»**•»****•*»** **•***•• 

TST23I MQV 4STACK0»R4 I SET UP THE STACK POINTER 

J$R PC* PySHR l PUT the DATA QN THE STACK 


1616 

1617 

007554 

000240 


1618 

007556 

075024 


1619 

1620 

007560 

013767 

177776 

1621 

007566 

010467 

171024 

1622 

007572 

026767 

171052 

1623 

007600 

001401 


1624 

007602 

104000 


1625 

1626 

007604 

105767 

171004 



NOP 

fmuu* 

R4 


171026 1$: 

MOV 

9#PS, 

SPSW 


MOV 

R4, 

SSP 

171014 

CMP 

SMUUPS, 

SPSW 


BEQ 

,*4 



HUT 




TSTB 

SPSW 



I FLOAT I NG MUuTJPlY ON THE R4 STACK 

| SAVE PROCESSOR STATUS 
I SAVE THE STACK POINTER 
I CHECK THE PROCESSOR STATUS 
I BRANCH IF OK 
l-PSW NOT EQUAL TO SMUIPS 

I CHECK FOR ERROR 



MAJNDEC-U-DBKEB-A 
DBKEBA.PU TEST 23 

1627 207610 100423 

1628 

162V 207612 012767 

1630 207620 226767 

1631 207626 001401 

1632 207630 104000 

1633 

1634 207632 026767 

1635 207640 001401 

1636 207642 104000 

1637 

163B 207644 006767 

1639 207652 001401 

1640 207654 104000 

1641 

1640 207656 000451 

1643 

1644 007660 012767 

1645 007666 026767 

1646 207674 001401 

1647 207676 104000 

1649 

1649 207700 022767 

1650 207706 001401 

1651 207710 104000 

1652 

1653 207712 026767 

1654 207720 001401 

1655 207722 104000 

1656 

1657 207724 026767 

1658 007732 001401 

1659 207734 104000 

1660 

1661 207736 026767 

1662 207744 001401 

1663 207746 104000 

1664 

1665 207750 026767 

1666 207756 001401 

1667 207760 104000 

1668 

1669 207762 026767 

1670 007770 001401 

1671 207772 104000 

1672 

1673 207774 012716 

1674 210000 000002 

1675 

1676 210002 104400 

1677 


KEllf (PDP-11 PIS) EXERCISER, 



EXERCISE FMUL 

R4. 



BMJ 

000610 

171044 

171050 

170770 

NOV 

CHP 

BEQ 

hlt 

171014 

170750 

CMP 

BEQ 

hlt 

171004 

170740 

CMP 

BEQ 

HLT 



BR 

000604 

170776 

171002 2SJ 
170722 

MOV 

CMP 

BEQ 

hlt 

007560 

170672 

CMP 

BEQ 

HLT 

170740 

170662 

CMP 

BEQ 

hlt 

170674 

170652 

CMP 

BEQ 

HLT 

170664 

170642 

CMP 

BEQ 

HLT 

170644 

170632 

CMP 

BEQ 

HLT 

170634 

170622 

CMP 

BEQ 

HLT 

010002 


MOV 

RT! 



3 $: 


SCOPE 


MACY11 ,620 22»AU5*72 H|40 PAGE 34 


2S (BRANCH IF ERROR 

#STACK4,SAVSTK (SAVE proper stack address For TYPING 
SAVSTK | SSP | CHECK THE STACK POINTER 

, *4 (BRANCH IF OK 

(STACK POINTER NOT EQUAL TO #STACK4 

$MUU* ANSI (CHECK THE ANSWER 

, +4 (BRANCH IF OK 

(LEFT HALF OF ANSWER WRONG 

SMUL2, ANS2 (CHECK THE ANSWER 

,*4 IBRANCH IF OK 

(RIGHT HALF OF ANSWER WRONG 

3S 

4STACK0, SAVSTK iSAVE STACK AOORESS FOR TYPING 
SAVSTK, SSP I'CHECK THE STACK POINTER 

, *4 (BRANCH IF OK 

(STACK POINTER FOULEO UP 

ns, STK1 (CHECK THE RT| AOORESS ON THE STACK 
, #4 (BRANCH IP OK 

iRTl ADDRESS NOT EQUAL TO #1S 

SHULER, STK2 (CHECK THE PSW ON THE STACK 
, *4 (BRANCH IP OK 

|RT J PSW NOT EQUAL TO 200 

RAND.C, STK3 (CHECK THE DATA ON THE STACK 
, *4 (BRANCH IF OK 

(STKS NOT EQUAL TO RANQ.C 

RAND.D, STK4 (CHECK THE DATA ON THE STACK 
,*4 (BRANCH IP OK 

(STK4 NOT EQUAL TO RAND.D 

RAND, A, STK5 (CHECK THE DATA ON THE STACK 

,44 (BRANCH IF OK 

j SfK5 NOT EQUAL TO RAND, A 

RAND.B, STK6 (CHECK THE DATA ON THE STACK 

, *4 (BRANCH IF OK 

I STK6 NOT EQUAL TO RANO.B 





(RESET THE STACK 
(RESTORE THE STATUS (T.BJT) 



' O 

MAINOEC-U-DBKEB-A 
DBKEBA.Pil TEST 24: 

1678 

1679 

1680 
1681 
1682 

1683 

1684 

1685 210004 012705 

1686 210010 004767 

1687 

1688 210014 000240 

1689 210016 075035 

1690 

1691 210020 013767 

1692 210026 010567 

1693 210032 026767 

1694 210040 001481 

1695 210042 104080 

1696 

1697 210044 105767 

1698 210050 . 100423 

1699 

1700 210052 012767 

1701 210060 026767 

1702 210066 001401 

1703 210070 104000 

1704 

1705 210072 026767 

1706 210100 001401 

1707 210102 104000 

170$ 

17-0* el0104 026767 

1710 210112 001401 

1711 210114 104000 

1712 

1713 210116 000451 

1714 

1715 210120 012767 

1716 210126 026767 

1717 210134 001401 

, 1718 210136 104000 

1719 

1720 210140 022767 

, 1721 210146 001401 

1722 210150 104000 

1723 

1724 210152 026767 

1725 210160 001401 

1726 210162 104000 

/ 1727 

1728 210164 026767 

1729 210172 801401 

> 1730 210174 104000 

1731 




KEHF (PDP-11 F JS) EXERCISER, MACY11.620 «.AUGi72 11(40 PACE 33 
EXERCISE PD1V R5 


I TEST 241 EXERCISE FQ J V (PDP»U FLOATING DIVIDE INSTRUCTION) 

I RAND, A, RAND, 8 / RAND ,C, RAND ,0 * ANSI. ANS2 

( STACK POINTER f R5 

J #**»#*#*#«**•#*#*#####•*######«###**** ###**#####•#**###••♦♦•**•♦***•#** 


000604 

003564 


TST24I 

MOV 

JSR 

#STACK0 

PC. 

»RS 

PUSHR 

i SET UP THE STACK POINTER 
(PUT THE DATA ON THE STACK 




NOP 

FOIV+ 

R5 


iFtOATlN? DIVIDE ON THE R5 STACK 

177776 

170564 

170622 

170566 

170554 

IS: 

MOV 

MOV 

CMP 

BEO 

«LT 

P#PS. 

R5, 

$0 J VPS, 

,♦4 

SPSW 

SSP 

SPSW 

| SAVE PROCESSOR STATUS 
(SAVE THE STACK POINTER 
(CHECK THE PROCESSOR STATUS 
(BRANCH IF OK 
(PSW NOT EQUAL TO SDIVPS 

170544 



TSTB 

BMJ 

SPSW 

2S 


(CHECK FOR ERROR 
(BRANCH IF ERROR 

000610 

170604 

170610 

170530 


MOV 

CMP 

BEQ 

HUT 

#STACK4 
SAVSTK, 
i *4 

, SAVSTK 
SSP 

(SAVE PROPER STACK ADDRESS FOR TYPING 
(CHECK THE STACK POINTER 
(BRANCH IF OK 

(STACK POINTER NOT EQUAL TO 4STACK4 

170564 

170510 


CMP 

BE9 

HIT 

SOI VI, 
.64 

ANSI 

(CHECK THE ANSWER 
(BRANCH IF OK 

(LEFT HALF OF ANSWER WRONG 

170554 

170500 


CMP 

BEO 

HU 

S01V2, 

,*4 

ANS2 

(CHECK THE ANSWER 
(BRANCH JF OK 

(RIGHT HALF OF ANSWER WRONG 




BR 

31 



000604 

170536 

170542 

170462 

2S : 

MQV 

CMP 

BEO 

HUT 

#STACK0 
SAVSTK, 
, *4 

.SAVSTK 

SSP 

(SAVE STACK ADDRESS FOR TYPING 
(CHECK THE STACK POINTER 
(BRANCH IF OK 
jStACK POINTER FOULED UP 

010020 

170432 


CMP 

BEO 

HU 

#1$, 
i *4 

STK1 

(CHECK THE RTJ ADDRESS ON THE STACK 
(BRANCH IF OK 

(RTJ ADDRESS NOT EQUAL TO #1* 

170510 

170422 


CMP 

BEO 

HIT 

SOIVER, 
, *4 

STK2 

(CHECK THE PSW ON THE STACK 
(BRANCH IF OK 
I RT I PSW NOT EQUAL TO 200 

170434 

170412 


CMP 

BEQ 

HIT 

RANO.C, 

.*4 

STK3 

(CHECK THE DATA ON THE STACK 
(BRANCH IF OK 
1 STK3 WOT EQUAL TO RAND , C 



} 


MAINOEC 

►il-OBKEB-A 

KEiiF 

(PDP-11 FIS) EXERCISER, 

MACYH,620 22 

• AUG-72 11140 PAGE 36 

, OBKEBA.PU 

TEST 24 

? 

EXERCISE 

: FOJV 

R5 



1732 

712170 

026767 

170424 

170402 


CMP 

RAND.Di STK4 

(CHECK THE DATA ON THE STACK 

1733 

710204 

001401 




BEG 

i *4 

j BRANCH IF OK 

1734 

f 10206 

104000 




hut 


1 STK4 NOT EQUAL TO RANO.O 

1735 

1736 

gifiZlQ 

026767 

170404 

170372 


CMP 

RAND, A, STK5 

(CHECK THE DATA ON THE STACK 

1737 

2 10216 

001401 




8EG 

,♦4 

(BRANCH IF OK 

1738 

710220 

104000 




HIT 


ISTK5 NOT EQUAL TO RAND, A 

1739 

1740 

710222 

026767 

170374 

170362 


CMP 

RAND.B, STK6 

(CHECK THE DATA ON THE STACK 

1741 

710230 

001401 




beg 

,*« 

(BRANCH IF OK 

1742 

710232 

104000 




HLT 


j STK6 NOT EQUAL TO RANO.B 

1743 

1744 

710234 

012716 

010242 



MOV 

*3$ • (SP) 

(RESET THE STACK 

1745 

710240 

000002 




RTl 


(RESTORE THE STATUS (T»BJT) 

1740 









1747 

710242 

104400 



3$; 

SCOPE 



1740 









1749 









1750 

1751 





| !•••• 
ITEST 

251 

EXERCISE FADO 

(PDPill FLOATING AOO INSTRUCTION) 

1752' 





I 

RAND,, 

4, RAND.B * RAND , C 

i RANO i 0 i ANSI, ANS2 

1753 





1 

STACK 

POINTER * SP 


1754 

•l 5EC 





}••#*# 




175? 

1750 

710244 

012706 

000604 


TST25| 

MOV 

*$TACK0»SP 

(SET UP THI STACK POINTER 

1757 

710250 

004767 

003324 



JSR 

PCi PUSHR 

(PUT THE DATA ON THE STACK 

1750 









1759 

710254 

000240 




NOP 



1760 

710256 

075006 




FAOD* 

SP 

(FLOATING AOO ON THE SP STACK 

1761 









1762 

710260 

013767 

177770 

170326 

IS* 

MOV 

PPPS, SPSW 

(SAVE PROCESSOR STATUS 

1763 

710266 

010667 

170324 



HQV 

sp, ssp 

iSave The stack pointer 

1764 

el0272 

026767 

170332 

170314 


CMP 

SAODPS, SPSW 

/CHECK THE PROCESSOR STATUS 

1765 

710300 

001401 




8E0 

,64 

/BRANCH IP OK 

1766 

710302 

104000 




HUT 


/PSW NOT EQUAL TO SAQOPS 

1767 









1768 

710304 

105767 

170304 



TSTB 

SPSW 

/check for error 

1769 

710310 

100424 




BMJ 

as 

(BRANCH IF ERROR 

1770 

1771 

710312 

012767 

000610 

170350 


MOV 

#STACK4,SAVSTK 

(SAVE PROPER STACK ADDRESS FOR TYPING 

> 1772 

710320 

026767 

170344 

170270 


CMP 

SAVSTK, SSP 

(CHECK THE STACK POINTER 

1773 

710326 

001401 




BEO 

,64 

(BRANCH IF OK 

1774 

710330 

104000 




HIT 


(STACK POINTER NOT EQUAL TO PSTACK4 

1775 

1776 

710332 

026767 

170274 

170250 


CMP 

SAOD1* ANSI 

(CHECK THE ANSWER 

1777 

710340 

001401 




BEQ 

»*4 

(BRANCH IF OK 

j 1778 

710342 

104000 




HIT 


(LEFT HALF OF ANSWER WRONG 

1779 

1780 

710344 

026767 

170264 

170240 


CMP 

SAPD2, ANS2 

(CHECK THE ANSWER 

> 1781 

710352 

001401 




BEQ 

i*4 

(BRANCH IF OK 

1782 

710354 

104000 




HIT 


(RIGHT HALF OF ANSWER WRONG 

1783 
, 1784 

710356 

024646 




CMP 

• <SP), ■ C SP ) 

(RESTORE THE STACK 

1785 

rr 

000451 




BR 

” O 






MAINDEC-U-08KE8.A KEliF (PDP-11 FIS) EXERCISER , 

O0KE8A.P11 TEST 25» EXERCISE FADD SP 


1786 


1787 

P10362 

012767 

000600 

170300 

21: 

MOV 

178Q 

F 10370 

026767 

170274 

170220 


CMP 

1789 

010376 

001401 




BEQ 

1790 

010400 

104000 




-hlt 

1791 







1792 

010402 

022767 

010260 

170170 


CMP 

1793 

010410 

001401 




BEQ 

1794 

010412 

104000 




hlt 

1795 







1796 

010414 

026767 

170216 

170160 


CMP 

1797 

010422 

001401 




BEQ 

1798 

010424 

104000 




HLT 

1799 







1800 

010426 

026767 

170172 

170150 


CMP 

1801 

010434 

001401 




BEQ 

1802 

040436 

104000 




hlt 

1803 







1804 

010440 

026767 

170162 

170140 


CMP 

1805 

010446 

001401 




BEQ 

1806 

010450 

104000 




HLT 

1807 







1608 

010452 

026767 

170142 

170130 


CMP 

1809 

010460 

001401 




BEQ 

1810 

010462 

104000 




hlt 

1811 







1812 

010464 

026767 

170132 

170120 


CMP 

1813 

010472 

001401 




BEQ 

1814 

010474 

104000 




HLT 

1815 







1816 

010476 

012716 

010504 



MOV 

1817 

010502 

000002 




RTJ 

1818 







1819 

010504 

104400 



3$: 

SCOPE 

1620 







1821 







1822 





| #»•••«»»»#•* 

1823 





J TEST 

261 

1824 





1 

RAND, 

1825 





J 

STACK 

1826 





1 ##**#**###*# 

1827 







1628 

010506 

012700 

000604 


TST26I 

MOV 

1829 

010512 

004767 

003062 



JSR 

1830 







1831 

010516 

000240 




NOP 

1832 

010520 

075010 




FSUB* 

1833 







1834 

010522 

013767 

177776 

170064 

IS: 

MOV 

1835 

010530 

010067 

170062 



MOV 

1836 

010534 

026767 

170100 

170052 


CMP 

1837 

010542 

001401 




BEQ 

1838 

010544 

104000 




HLT 


1839 
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PSTK1 i 

SAVSTK, 

,*4 

SAVSTK 

$SP 

(SAVE PROPER STACK ADDRESS FOR 
(CHECK THE STACK POINTER 
(BRANCH IF OK 
(STACK POINTER FOULED UP 

TYPING 

ns* 

, *4 

STK1 

(CHECK THE RTJ ADDRESS ON THE 
(BRANCH IF OK 

IRTJ ADDRESS NOT EQUAL TO #1S 

STACK 

SADDER, 

i*4 

STK2 

(CHECK THE PSW ON THE STACK 

(BRANCH IF OK 

|RT! PSW NOT equal TO 


RAND i C, 

i*4 

STK3 

(CHECK THE DAT* ON THE STACK 

(BRANCH IF OK 

(STK3 NOT EQUAL TO RAND.C 


RAND i D, 
, *4 

STK4 

(CHECK THE DATA ON THE STACK 

(BRANCH IF OK 

(STM NOT EQUAL TO RANp.D 


RAND, A, 
,*4 

STK5 

(CHECK THE DATA ON THE STACK 

(BRANCH IF OK 

(STK5 NOT EQUAL TO RAND', A 


RAND.B, 

,*4 

STK6 

(CHECK THE DATA ON THE STACK 

(BRANCH IF OK 

(STK6 NOT EQUAL TO RANO.B 


#3S, 

(SP) 

(RESET THE STACK 
(RESTORE THE STATUS (T»BIT) 



EXERCISE FSUB £PDP*lt FLOATING SUBTRACT INSTRUCTION) 
i RAND , S * RAND,C»RAND,D ? ANSI.ANS2 
POINTER 8 R0 

#•**###•#•»##•###•##•••*»•*«***#***•••#•#•••********••**•• 

#$TACK0,R0 ISET UP THE stack pointer 

PCi PUSHR j PUT THE data cn the stack 


R0 I FLOAT I N c SUBTRACT ON THE R0 STACK 

d»#PS» SPSW (SAVE PROCESSOR STATUS 

R0, ISP (SAVE THE STACK POINTER 

SSUBPS, IPSW iCHECK THE PROCESSOR STATUS 

,*4 (BRANCH IF OK 

j PS W NOT EQUAL TO SSUBPS 




MACYlt,620 22»AU5»>72 11140 PACE 38 


SPSW | CHECK FOR ERROR 

2$ (BRANCH If ERROR 

#STACK4,SAVSTK (SAVE PROPER STACK ADDRESS FOR TYPING 
SAVSTK, SSP | CHECK THE STACK POINTER 

, *4 j branch ir ok 

I STACK POINTER NOT EQUAL TO P§TACK4 

SSWBli ANSI ICHECK THE ANSWER 

,*4 (BRANCH Jf OK 

(LEFT HALF OF ANSWER WRONG 

SSUB2, ANS2 (CHECK THE ANSWER 

,*4 (BRANCH IF OK 

(RIGHT HALF OF ANSWER WRONG 

3S 

RSTACK0. SAVSTK (SAVE STACK ADDRESS FOR TYPING 
SAVSTK, SSP (CHECK THE STACK POINTER 

, *4 (BRANCH IF OK 

(STACK POINTER FOULEO UP 

PIS, STK1 (CHECK THE RTI ADDRESS ON THE STACK 
,44 (BRANCH IF OK 

(RTI ADDRESS NOT EQUAL TO #IS 

SSUBER, STK2 (CHECK THE PSW ON THE STACK 
,44 (BRANCH IF OK 

(RTI PSW NOT EQUAL TO 108 

RAND i C, STK3 (CHECK TH| OATA ON THE STACK 
,44 (BRANCH IF OK 

(STK3 NOT EQUAL TO RANO.C 

RANO.O, STK4 (CHECK THE DATA ON THE STACK 
,44 (BRANCH IF OK 

(STK4 NOT EQUAL TO RAND, 0 

RAND, A, STK5 (CHECK THE DATA ON THE STACK 

,44 (BRANCH IF OK 

(STK5 NOT EQUAL TO RAND, A 

RAND, 8, STK6 (CHECK THE OATA ON THE STACK 

,44 (BRANCH IF OK 

(STK6 NOT EQUAL TO RANQ.B 


w 



(RESET THE STACK 
(RESTORE THE STATUS (T-B1TJ 



MAINOEC-n-DBKES-A 
DBKEBA.PJl TEST 275 

1892 

1893 

1894 
1896 

1896 

1897 

1898 

1899 710746 012701 

1930 010752 004767 

1901 

1902 710756 000240 

1903 710760 075021 

1904 

1905 710762 013767 

1906 710770 010167 

1907 710774 026767 

1908 ell002 001401 

1909 711004 104000 

1910 

1911 711006 105767 

1912 711012 100423 

1913 

1914 711014 012767 

1915 711022 026767 

1916 711030 001401 

1917 711032 104000 

1918 

1919 711034 026767 

1920 211042 001401 

1921 711044 104000 

1922 

1923 211046 026767 

1924 711054 001401 

1925 211056 104000 

1926 

1927 711060 000451 

1928 

1929 711062 012767 

1930 711070 026767 

1931 711076 001401 

1932 711100 104000 

1933 

1934 711102 222767 

1935 711110 001401 

1936 711112 104000 

1937 

1938 711114 026767 

1939 711122 001401 

1940 711124 104000 

1941 

1942 211126 026767 

1943 711134 301401 

1944 711136 104000 

1945 
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EXERCISE FmUL R1 


*##*#•#«•••#•### ******************************* 

ITEST 275 EXERCISE FMUL (PDP-11 FLOATING MULTIPLY INSTRUCTION) 

J RAND, A, RAND, B * RAND , C , RAND , D » ANS1,ANS2 

I STACK POINTER * R1 

I #*»***»»#»***«***#*»*»*»*****•**#»***•*•**•»••***•*•••*•*****•********* 


000604 


TST27I 

MOV 

#STACK0 

,n 

1 SET UP THE STACK POINTER 

002622 



JSR 

PC, 

PU9HR 

1 PUT THE DATA ON THE STACK 




NOP 

FMUL+ 

R1 


ifloating multiply on the ri stack 

177776 

167624 

1$S 

MOV 

P#PS, 

SPSW 

ISAVE PROCESSOR STATUS 

167622 



MOV 

RJ, 

SSP 

ISAVE THE STACK POINTER 

167650 

167612 


CMP 

SMULPS, 

SPSW 

1 CHECK THE PROCESSOR STATUS 



8EQ 

i *4 


, BRANCH JF OK 




hlt 



jPSW NOT EQUAL TO SMULPS 

167602 



TSTB 

$PSW 


ICHECK FOR ERROR 



BM J 

25 


1 BRANCH JF ERROR 

000610 

167646 


MOV 

PSTACK4 

# SAVSTK 

(SAVE PROPER STACK ADDRESS FfiR TYPING 

167642 

167566 


CMP 

SAVSTK, 

SSP 

ICHECK THE STACK POINTER 



BEQ 

, *4 


IBRANCH If OK 




hlt 



1 STACK POJNTER NOT EQUAL TO PSTACK4 

167612 

167546 


CMP 

5MUL1, 

ANSI 

ICHECK THE ANSWER 




BEQ 

i +4 


(BRANCH IF OK 




HLT 



/LEFT HALF OF ANSWER WRONG 

167602 

167536 


CMP 

SMUL2, 

ANS2 

(CHECK THE ANSWER 




BEQ 

1 44 


(BRANCH ir OK 




HLT 



(RIGHT HALF OF ANSWER WRONG 




BR 

33 



000604 

167600 

2$ 5 

MOV 

#STACK0 

, SAVSTK 

ISAVE STACK ADDRESS PQR TYpJnG 

167574 

167520 


CMP 

SAVSTK, 

s|p 

(CHECK THE STACK POINTER 




BEQ 

,*4 


IBRANCH IF OK 




hlt 


(STACK POINTER FOULED UP 

010762 

167470 


CMP 

#11, 

SfKl 

ICHECK THE RTJ ADDRESS ON THE STACK 




BEQ 

, *4 


(BRANCH IF OK 




HLT 



(RTJ ADDRESS NOT EQUAL TO #1S 

167536 

167460 


CMP 

SMULER, 

STK2 

ICHECK THE PSW ON THE STACK 




BEQ 

,*4 


(BRANCH ir OK 




hlt 



(RTJ PSW NOT EQUAL TO ?00 

167472 

167450 


CMP 

RANO.C, 

STK3 

(CHECK THE DATA ON THE STACK 




BEQ 

, *4 


(BRANCH IF OK 




HLT 



j STK3 NOT EQUAL TO RAND , C 
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DBKEBA.Pil TEST 27! EXERCISE FMUl R1 


i 


1946 

1947 

1948 

1949 

1950 

1951 

1952 

1953 

1954 

1955 

1956 

1957 

1958 

1959 

1960 

1961 

1962 

1963 

1964 

1965 

1966 

1967 

1968 

1969 

1970 

1971 

1972 

1973 

1974 

1975 

1976 

1977 

1978 

1979 

1980 

1981 

1982 

1983 

1984 

1985 

1986 

1987 

1988 

1989 

1990 

1991 

1992 

1993 

1994 

1995 

1996 

1997 

1998 

1999 


011140 

711146 

P1H50 

026767 

001401 

104000 

167462 

167440 


CMP 

BEG 

H|»T 

RAND.Dj STK4 
i *4 

{CHECK TH£ DATA ON THE STACK 

1 BRANCH IF OK 

|STK4 NOT EGUAU to rand,d 

mi52 

711160 

711162 

926767 

001401 

104000 

167442 

167430 


CMP 

BEG 

HUT 

RAND, A, STK5 

i *4 

j CHECK THE DATA ON THE STACK 
1 BRANCH IF OK 
j STK5 NOT EQUAU TO RAND, A 

711164 

711172 

711174 

026767 

001401 

104000 

167432 

167420 


CMP 

BEQ 

WIT 

RAND.B, STK6 

.♦4 

j CHECK THE DATA ON THE STACK 
I BRANCH IF OK 
1 STK6 NOT EQUAU TO RAND , B 

711176 

711202 

012716 

000002 

011204 



MOV 

RTI 

#3S, (SP> 

1 RESET THE STACK 
i restore THE STATUS (T»BJT> 

711204 

104400 



3$: 

SCOPE 







1 ***** 
J TEST 
I 
1 

1 ***** 

301 

RAND, A 
STACK 

EXERCISE FOl V 
,RANQ,B / RAND , C 
POINTER I R2 

(POPiii floating divide instruction) 

,RAN0,0 a ANSI, ANS2 

t***|***M«<****ti**t**t**t**«t******t***t 

711206 

711212 

012702 

004767 

000604 

002362 


TST30I 

MOV 

JSR 

ISTACK0.R2 
PC, PySHR 

iset up THE STACK POINTER 
{'PUT the data on the stack 

711216 

711220 

000240 

075032 




NQP 

FDIV+ 

R2 

{FLOATING DIVIDE ON the R2 STACK 

711222 

711230 

711234 

711242 

711244 

013767 

010267 

026767 

001401 

104000 

177776 

167362 

167420 

167364 

167352 

li; 

MQV 

MQV 

CMP 

BEQ 

HUT 

•#PS, SRJW 

R2, SSP 

SOIVPS, SPSW 
,*4 

{SAVE PROCESSOR STATUS 
{SAVE THE STACK POINTER 
ICHECK THE PROCESSOR STATUS 
1 BRANCH IF OK 
jPSW NOT EQUAL TO SDJVPS 

711246 

711252 

105767 

100423 

167342 



TSTB 
BH I 

SPSW 

2S 

(CHECK FOR ERROR 
1 BRANCH IF ERROR 

711254 

711262 

711270 

711272 

012767 

026767 

001401 

104000 

000610 

167402 

167406 

167326 


MQV 

CMP 

BEG 

HUT 

#STACK4,SAVSTK 
SAVSTK , SSP 
, *4 

(SAVE PROPER STACK ADDRESS FOR TYPING 
ICHECK THE STACK POINTER 
{BRANCH IF OK 

{STACK POINTER NOT EQUAL TO #STACK4 

711274 

711302 

711304 

026767 

001401 

104000 

167362 

167306 


CMP 

BEG 

HUT 

SOI VI* ANSI 
,+4 

{CHECK THE ANSWER 
{BRANCH IF OK 

{LEFT HALF OF ANSWER WRONG 

711306 

711314 

711316 

026767 

001401 

104000 

167352 

167276 


CMP 

BEG 

HUT 

S0JV2» ANS2 
,*4 

{CHECK THE ANSWER 
{BRANCH IF OK 

{RIGHT HALF OF ANSWER WRONG 

711320 

O 

000431 




BR 

3$ 

o 



o 



O 

MAINDEC.U-DBKEB-A 
OBKEBA.PU t EST 301 

2000 011322 012767 

2001 011330 026767 

2002 0.11336 001401 

2003 ? 11340 104000 

2004 

2005 (>11342 02276 7 

2006 011350 001401 

2007 (>11352 104000 

2008 

2009 ?11354 026767 

2010 011362 301401 

2011 011364 104000 

2012 

2013 011366 026767 

2014 eil374 301401 

2015 011376 104000 

2016 

2017 011400 026767 

2018 011406 001401 

2019 011410 104000 

2020 

2021 011412 026767 

2022 011420 001401 

2023 011422 104000 

2024 

202? 011424 026767 

2026 011432 001401 

2027 011434 104000 

2028 

2029 011436 012716 

2030 011442 000002 

2031 

2032 011444 104400 

2033 

2034 

2035 

2036 

2037 

2038 

2039 

2040 

2041 ?11446 012733 

2042 011452 004767 

2043 

2044 011456 300240 

2045 011460 075003 

2046 

2047 011462 013767 

2048 711470 010367 

2049 711474 326767 

2050 711532 001401 

2051 711504 104030 

2052 

2053 711506 105767 
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EXERCISE FDIV R2 


000604 

167340 2$! 

MOV 

#STACK0, 

SAVSTK 

(SAVE STACK ADDRESS FOR TYPING 

167334 

167260 

CMP 

SAVSTK, 

SSP 

1 CHECK THE STACK POINTER 


BEO 

,♦4 


1 BRANCH IF OK 



HUT 



(STACK POINTER FOUUEO UP 

011222 

167230 

CMP 

#15, 

STK1 

(CHECK THE RTI ADDRESS ON THE STACK 


BEQ 

,*4 


(BRANCH IF OK 



hut 



|RTJ ADDRESS NOT EQUAL TO #15 

167306 

167220 

CMP 

SDIVER, 

STK2 

(CHECK THE PSW ON THE STACK 


BEQ 

, *4 


(BRANCH IF OK 



hlt 



(RTI PSW NOT EQUAL TO 200 

167232 

167210 

CMP 

RANO.C, 

STk3 

(CHECK THE DATA ON THE STACK 


BEQ 

,*4 


(BRANCH IF OK 



hlt 



1 5TK3 NOT EQUAL TO RAND • C 

167222 

167200 

CMP 

RAND i D, 

STK4 

(CHECK THE DATA ON THE STACK 


BEO 

,*4 


(BRANCH IF OK 



HLT 



(SfK4 NOT EQUAL TO RAND , 0 

167202 

167170 

CMP 

RAND, A, 

STK5 

(CHECK THE DATA ON THE STACK 


BEQ 

,♦4 


1 BRANCH IF OK 



HIT 



(STK5 NOT EQUAL TO RANO.A 

167172 

167160 

CMP 

RAND.B, 

S?K6 

(‘check the data on the stack 


BEQ 

.*4 


(BRANCH IF OK 



hlt 



} STK6 NOT EQUAL TO RAND , 9 

0H444 


MOV 

#35, 

<SP) 

(RESET THE STACK 


RTi 



(RESTORE THE STATUS (T-BIT) 


3$: SCOPE 


*#**##»##$«**####»#**#***** #^*#********»* # ***** # * # * # ** # * # ** # 

ITEST 311 EXERCISE FADD (PDP-11 FLOATING ADD INSTRUCTION) 

) RAND , A i RAND , B * RAND , C i RAND , D * AN$1,ANS2 

I STACK POINTER f R3 

| a#*##*#*##########*###**#*#####*#####*##***#*######®#*#*#****#**#****** 


000604 


TST31I 

MOV 

#STACK0 

,R3 

(SET UP THE STACK POINTER 

002122 



JSR 

PC, 

PUSHR 

(PUT THE DATA ON THE STACK 




NOP 
FADD + 

R3 


(Floating add on the R3 stack 

177776 

167124 

1$ : 

MOV 

$#P S, 

5PSW 

(SAVE PROCESSOR STATUS 

167122 



MOV 

R3, 

5SP 

(SAVE THE STACK POINTER 

167130 

167112 


CMP 

SADOPS, 

$P3W 

(CHECK THE PROCESSOR STATUS 



BEQ 

,★4 


(BRANCH IF OK 




HLT 



(PSW NOT EQUAL TO SADDPS 

167102 



TSTB 

$PSW 


(CHECK FOR ERROR 



MA1NDEC-11-DBKEB-A KEU f (PDP-11 F I S J EXERCISER, 


5KEBA, 

Pit 

TEST 31 ■ 

EXERCISE FADO 

R3 

2054 

F11512 

100423 



SMI 

2055 






2056 

? 1 1 5 1 4 

012767 

000610 

167146 

MOV 

2057 

fll522 

026767 

167142 

167066 

CMP 

2058 

711530 

001401 



9EQ 

2059 

711532 

104000 



HLT 

2060 






2061 

011534 

026767 

167072 

167046 

CMP 

2062 

011542 

001401 



BEQ 

2063 

011544 

104000 



HLT 

2064 






2065 

011546 

026767 

167062 

167036 

CMP 

2066 

011554 

001401 



BEQ 

2067 

011556 

104000 



HLT 

2068 






2069 

011560 

000451 



BR 

2070 






2071 

011562 

012767 

000604 

167100 2S: 

MOV 

2072 

011570 

026767 

167074 

167020 

CMP 

2073 

011576 

001401 



BEQ 

2074 

nn’iC 

011600 

104000 



HLT 

2075 

2076 

011602 

022767 

011462 

166770 

CMP 

2077 

011610 

001401 



BEQ 

2078 

011612 

104000 



HLT 

2079 






2080 

011614 

026767 

167016 

166760 

CMP 

2081 

011622 

001401 



BEQ 

2082 

011624 

104000 



HLT 

2083 

2084 

011626 

026767 

166772 

166750 

CMP 

2085 

011634 

001401 



BEQ 

2086 
A fl Q T 

011636 

104000 



HLT 

2087 

2088 

011640 

026767 

166762 

166740 

CMP 

2089 

011646 

001401 



BEQ 

2090 

011650 

104000 



HLT 

2091 






2092 

011652 

026767 

166742 

166730 

CMP 

2093 

011660 

001401 



BEQ 

2094 

011662 

104000 



HLT 

2095 






2096 

011664 

026767 

166732 

166720 

CMP 

2097 

011672 

001401 



BEQ 

2098 

011674 

104000 



HLT 

2099 






2100 

011676 

012716 

011704 


MQV 

2101 

011702 

000002 



R T J 

2102 






2103 

011704 

104400 


3$ : 

SCOPE 


2104 
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25 i BRANCH IF ERROR 

«stack4,savstk (Save proper stack address for typing 

SAVSTK, SSP | CHECK THE STACK POINTER 

,*4 i BRANCH IF OK 

iSTACK POINTER NOT EQUAL TO *STaCK4 

S AUDI i ANSI JCHECK THE ANSWER 

,*4 j BRANCH IF OK 

{LEFT HALF OF ANSWER WRONG 

SA0D2, ANS2 iCHECK THE ANSWER 

, *4 {BRANCH IF OK 

{RIGHT HALF OF ANSWER WRONG 

35 

#STACK0, SAVSTK {SAVE STACK ADDRESS FOR TYPING 
SAVSTK, SSP {CHECK THE STACK POINTER 

,*4 {BRANCH IF OK 

{STACK POINTER FOULED UP 

#15, STKl ICHECK THE RT I ADDRESS ON THE STACK 
,44 {BRANCH JF OK 

I'RfJ ADDRESS NOT EQUAL TO #1S 

SADDER, STK2 {CHECK THE PSW ON THE STACK 
,44 {BRANCH JF OK 

jRtl PSW NOT EQUAL TO 200 

RAND, C« STK3 {CHECK THE DATA ON THE STACK 
,44 {BRANCH JF OK 

{StK3 NOT EQUAL TO RAND , C 

RANO.P, STK4 (CHECK THE DATA ON THE STACK 
,44 {'BRANCH IF OK 

(STK4 NOT EQUAL TO RAND , 0 

RAND, A, STK5 (CHECK THE DATA ON THE STACK 

,44 {BRANCH IF OK 

I St K5 NOT EQUAL TO RANO ,A 

RAND.B, STK6 {CHECK THE DATA ON THE STACK 

,44 {BRANCH IF OK 

jSTK6 NOT EQUAL TO RAND , B 

<SP) 


O 


# 3$ , 


{RESET THE STACK 
{RESTORE THE STATUS < T-BI T > 



MAINOEC-U-DBKEB»A 
DBKEBA.Pll TEST 321 

2105 

2106 
2107 
2138 

2109 

2110 
2111 

2112 011706 012704 

2113 ?11712 004767 

2114 

2115 211716 000240 

2116 211720 075014 

2117 

2118 211722 013767 

2119 211730 010467 

2120 211734 026767 

2121 211742 001401 

2122 211744 104000 

2123 

2124 211746 105767 

2125 211752 100423 

2126 

2127 211754 012767 

2128 211762 026767 

2129 211770 001401 

2130 211772 104000 

2131 

2132 211774 026767 

2133 212002 001401 

2134 212004 104000 

2135 

2136 212006 026767 

2137 ei2014 001401 

2138 212016 104000 

2139 

2140 212020 000451 

2141 

2142 212022 012767 

2143 212030 026767 

2144 212036 001401 

2145 212040 104000 

2146 

2147 212042 022767 

2148 212050 001401 

2149 212052 104000 

2150 

2151 212054 326767 

2152 212062 001401 

2153 212064 104000 

2154 

2155 212066 326767 

2156 212074 001401 

2157 212076 104000 

2158 
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EXERCJSE FSUB R4 


J *»#«##«*#»*###**#§#**##*«#*#*#**#**•«***•»»•««***•##•«***#•«#**«♦***#** 

i TEST 32 * EXERCISE F$UB (PDP-11 BOATING SUBTRACT INSTRUCTION) 

! RAND, A, RAND, B - R AND , C , RAND , D = ANSl,ANS2 

j STACK POINTER * R4 

J ##«»«#*###*###§*#*##**###«•«♦»#§**»«###*#***#**#*«*#*#***»##*•***««*••« 


300604 

001662 


TST32I 

MQV 

JSR 

#STACK0|R4 
PC, PUSHR 

j SET gp THE stack pointer 

, PUT THE DATA on THE STACK 




NOP 

FSUB+ 

R4 

IFUOATING SUBTRACT ON THE R4 STACK 

177776 

166662 

166700 

166664 

166652 

1$: 

MOV 

MOV 

CMP 

BED 

HUT 

»#PS, SPSH 

R4, SSP 

SSUBPS, SPSH 
, *4 

{SAVE PROCESSOR STATUS 
iSAVE THE STACK POINTER 
{'CHECK THE PROCESSOR STATUS 
{BRANCH IP OK 
jPSW NOT EQUAU TO SSUBPS 

166642 



TSTB 

BMJ 

SPSH 

2$ 

{CHECK FOR ERROR 
j BRANCH IP ERROR 

000610 

166702 

166706 

166626 


MQV 

CMP 

BEQ 

HUT 

#STACK4,SAVSTK 
SAVSTK, SSP 
,♦4 

{SAVE PROPER STACK ADDRESS FOR TYPING 
{CHECK THE STACK POINTER 
{BRANCH IP OK 

{STACK POINTER NOT EQUAU TO #STACK4 

166642 

166606 


CMP 

BEQ 

HUT 

SSUB1, ANSI 

» *4 

{CHECK THE ANSWER 
{BRANCH IP OK 

{UEFT HALF OF ANSWER WRONG 

16663? 

166576 


CMP 

BEQ 

HUT 

SSUB2, ANS2 
,*4 

{'CHECK THE ANSWER 
{BRANCH IP OK 

(RIGHT HAUF OF ANSWER WRONG 




BR 

3$ 


000604 

166634 

166640 

166560 

2S ; 

MQV 

CMP 

BEQ 

HUT 

#STACK0*SAVSTK 
SAVSTK, SSP 
, + 4 

j SAVE STACK ADDRESS FOR TYPING 
{CHECK THE STACK POINTER 
{BRANCH If OK 
{STACK POINTER FOULED UP 

011722 

166530 


CMP 

BEQ 

HUT 

#1$, STKl 

, *4 

{CHECK THE RTJ ADDRESS ON THE STACK 
, BRANCH IF OK 

jRTI ADDRESS NOT EQUAL TO #1S 

166566 

166520 


CMP 

BEQ 

HUT 

SSUBER, STK2 
,*4 

{CHECK THE PSW ON THE STACK 

j BRANCH IF OK 

|RTI PSW NOT EQUAU TO 200 

166532 

166510 


CMP 

BEQ 

HLT 

RAND , C , STK3 
• *4 

{CHECK THE DATA ON THE STACK 
(BRANCH IF OK 
{ STK3 NOT EQUAL TO RAND , C 



MAINDEC 

-11-DBKEB-A 

KEllf 1 

[PDP-11 FIS} EXERCISER, 

MACYU,620 22 

•AUGi72 11J40 PAGE 44 

DBKEBA. 

PI 1 

TEST 321 

EXERCISE 

FSUB 

R4 



2159 

012100 

026767 

166522 

166500 


CMP 

RAND , D, STK4 

1 CHECK THE DATA ON THE STACK 

2160 

012106 

001401 




8EQ 

,+4 

I BRANCH IF OK 

2161 

712110 

104000 




H|„T 


1 STK4 NOT EQUAU TO RAND ,0 

2162 

2163 

712112 

026767 

166502 

166470 


CMP 

RAND, A, STK5 

(CHECK THE DATA ON THE STACK 

2164 

£12120 

301401 




BEQ 

,*4 

j BRANCH JF OK 

2165 

712122 

104000 




%T 


j STK5 NOT EQUAL TO RAND , A 

2166 

2167 

712124 

026767 

166472 

166460 


CMP 

RAND.B, STK6 

(CHECK THE DATA ON THE STACK 

2168 

712132 

001401 




BEO 

, *4 

(BRANCH IF OK 

2169 

712134 

104000 




NUT 


(STK6 NOT EQUAU TO RAND , B 

2170 

2171 

712136 

012716 

012144 



MOV 

#35 « (SP) 

(RESET THE STACK 

2172 

712142 

300002 




RTI 


(RESTORE THE STATUS < T«B I T » 

2173 

2174 

712144 

104400 



3$: 

SCOPE 



2175 









2176 









2177 





j ***** 

***««**< 



2176 





1 TEST 

331 

EXERCISE FMUL 

(POPall FLOATING MULTIPLY INSTRUCTION) 

2179 





1 

RAND, 

A,RANO,B * RAND , C 

, RAND , D » ANSI, ANS2 

2180 





1 

STACK 

POINTER » R5 


2181 





| ***** 

******* 



2182 









2183 

012146 

012705 

000604 


TST33I 

MOV 

#STACK0,R5 

(SET UP THE STACK POINTER 

2184 

712152 

004767 

001422 



JSR 

PC, PWSHR 

(PUT THE DATA ON THE STACK 

2185 









2186 

712156 

000240 




NOP 



2187 

712160 

075025 




FmUL* 

R5 

(FLOATING MULTIPLY ON THE R5 STACK 

2188 

2189 

712162 

013767 

177776 

166424 

IS i 

MOV 

MPS, SPSW 

(SAVE PROCESSOR STATUS 

2190 

712170 

010567 

166422 



MOV 

R5, SSP 

(SAVE THE STACK POINTER 

2191 

712174 

026767 

166450 

166412 


CMP 

SMUUPS, SPSW 

(CHECK THE PROCESSOR STATUS 

2192 

712202 

001401 




SEQ 

i*4 

(BRANCH IF OK 

2193 

712204 

104000 




hut 


(PSW NOT EQUAL TO SMULPS 

2194 









2195 

712206 

105767 

166402 



TSTB 

spsw 

(CHECK FOR ERROR 

2196 

712212 

100423 




BMJ 

2$ 

(BRANCH IF ERROR 

2197 

2198 

712214 

012767 

000610 

166446 


MOV 

#STACK4,SAVSTK 

(SAVE PROPER STACK ADDRESS FqR TYPING 

2199 

712222 

026767 

166442 

166366 


CMP 

SAVSTK, SSP 

(CHECK THE STACK POINTER 

2200 

712230 

001401 




BEQ 

.*4 

(BRANCH IF OK 

2201 

712232 

104000 




HUT 


(STACK POINTER NOT EQUAL TO #STACK4 

2202 

2203 

712234 

326767 

166412 

166346 


CMP 

SMUU1, ANSI 

(CHECK THE ANSWER 

2204 

712242 

001401 




BEQ 

,*4 

(BRANCH IF OK 

2205 

712244 

104000 




HUT 


(LEFT HALF OF ANSWER WRONG 

2206 









2207 

712246 

026767 

166402 

166336 


CMP 

SMUL2, ANS2 

(CHECK THE ANSWER 

2208 

712254 

001401 




bed 

,*4 

(BRANCH IF OK 

2209 

712256 

104000 




HUT 


(RIGHT HALF OF ANSWER WRONG 

2210 









2211 

712263 

000451 




BR 

35 
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DBKEBA.RU TEST 33 1 EXERCISE fMUt R5 


2213 

<12262 

012767 

300604 

166400 

21: 

MQV 

#ST ACKC i SAVSTK 

(SAVE STACK ADDRESS FOR TYPING 

2214 

*12270 

326767 

166374 

166320 


CMP 

SAVSTK, ISP 

(CHECK THE STACK POINTER 

2215 

U2276 

001401 




BEQ 

, *4 

(BRANCH IF OK 

2216 

? 12300 

104000 




HI.T 


(STACK POINTER FOUUED UP 

2217 

2218 

U2302 

022767 

012162 

166270 


CMP 

#11, STK1 

(CHECK THE RTJ ADDRESS ON THE STACK 

2219 

P 12310 

001401 




BEQ 

,♦4 

| BRANCH IF OK 

2220 

?12312 

104000 




HIT 


J'RTI ADDRESS NOT EQUAU TO #11 

2221 

2222 

712314 

026767 

166336 

166260 


CMP 

SMUUER. STK2 

(CHECK THE PSW ON THE STACK 

2223 

012322 

001401 




BEQ 

, *4 

JSRANCH if OK 

2224 

212324 

104000 




HI.T 


(RTI PSW NOT EQUAU TO 200 

2225 

2226 

712326 

026767 

166272 

166250 


CMP 

RAND.C, STK3 

(CHECK THE DATA ON THE STACK 

2227 

712334 

001401 




BEQ 

, *4 

(BRANCH IF OK 

2228 

712336 

104000 




HUT 


j STK3 NOT EQUAU TO RAND.C 

2229 









2230 

712340 

026767 

166262 

166240 


CMP 

RAND.D, STK4 

(CHECK THE DATA ON THE STACK 

2231 

712346 

001401 




BEQ 

i *4 

(BRANCH IF OK 

2232 

712350 

104000 




HUT 


1 STK4 NOT EQUAU TO RAND , D 

2233 

2234 

712352 

026767 

166242 

166230 


CMP 

RANO , A, STk5 

(CHECK THE DATA ON THE STACK 

2235 

712360 

001401 




BEQ 

, *4 

IBRANCH IF OK 

2236 

712362 

104000 




HUT 


(STK5 NOT EQUAU TO RAND, A 

2237 









2238 

712364 

026767 

166232 

166220 


CMP 

RANO.B, STk6 

(CHECK THE DATA ON THE STACK 

2239 

712372 

001401 




BEQ 

,*4 

IBRANCH IF OK 

2240 

0 % r% a 4 

712374 

104000 




HUT 


I STK6 NOT EQUAU TO RAND.B 

224JL 

2242 

712376 

012716 

012404 



MOV 

#3S | <SP> 

(RESET THE STACK 

2243 

712402 

000002 




RTJ 


(RESTORE THE STATUS (T*BIT) 

2244 









2245 

712404 

104400 



3Si 

SCOPE 



2246 









2247 









2248 





1 *#**####*#########**##«####*##**##•*•**« 

2249 





I TEST 

341 

EXERCISE FO I V 

fPDPill FLOATING DIVIDE INSTRUCTION) 

2250 





1 

RAND, 

A, RANO.B / RAND , C 

, RAND i D * ANSI , ANS2 

2251 





\ 

STACK 

POINTER * SP 


2252 





MM**####*#*###########®##*# 

2253 









2254 

712406 

012706 

000604 


TST34I 

MQV 

#ST ACK0 , SP 

(SET UP THE STACK POINTER 

2255 

712412 

004767 

001162 



JSR 

PC, PUSHR 

(PUT THE DATA ON THE STACK 

2256 









2257 

712416 

800240 




NQP 



2258 

712420 

075036 




FDIV + 

SP 

(Floating divide on the sp stack 

2259 









2260 

712422 

013767 

177776 

166164 

IS: 

MOV 

®#ps, spsw 

(SAVE PROCESSOR STATUS 

2261 

712430 

010667 

166162 



MOV 

SP, ISP 

(SAVE THE STACK POINTER 

2262 

712434 

026767 

166220 

166152 


CMP 

SO I VPS, SPSW 

(CHECK THE PROCESSOR STATUS 

2263 

712442 

001401 




BEQ 

,*4 

IBRANCH SF OK 

2264 

712444 

104030 




hut 


(PSW NOT EQUAL TO IQJVPS 

2265 









2266 

712446 

105767 

166142 



TSTB 

SPSW 

(CHECK FOR ERROR 



MAINDEC-ii*DBKEB«A KEilF (PDP-11 FIS) EXERCISER, 

D8KEBA. PU TEST 34! EXERCISE EDIV SP 


2267 712452 100424 

2266 

2269 ? 12454 012767 000610 166206 

2270 012462 026767 166202 166126 

2271 012470 001401 

2272 012472 104000 

2273 

2274 012474 026767 166162 166106 

2275 012502 001401 

2276 012504 104000 

2277 

2278 012506 026767 166152 166076 

2279 012514 001401 

2280 012516 104000 

2281 

2282 012520 024646 

2283 712522 000451 

2284 

2285 712524 012767 000600 166136 2$: 

2286 712532 026767 166132 166056 

2287 712540 001401 

2288 712542 104000 

2289 

2290 712544 022767 012422 166026 

2291 712552 001401 

2292 712554 104000 

2293 

2294 712556 026767 166104 166016 

2295 712564 001401 

2296 712566 104000 

2297 

2298 712570 026767 166030 166006 

2299 712576 001401 

2300 712600 104000 

2301 

2302 712602 026767 166020 165776 

2303 712610 001401 

2304 712612 104000 

2305 

2306 712614 026767 166000 165766 

2307 012622 001401 

2308 712624 104000 

2309 

2310 712626 026767 165770 165756 

2311 712634 001401 

2312 712636 104030 

2313 

2314 712640 012716 012646 

2315 712644 000002 

2316 

2317 712646 104400 3$: 

2318 



BMJ 

MOV 

CMP 

BEQ 

H|.T 

CMP 

BEQ 

HLT 

CMP 

BEQ 

NIT 

CMP 

BR 

MOV 

CMP 

BEQ 

HIT 

CMP 

BEQ 

HUT 

CMP 

BEQ 

HUT 

CMP 

BEQ 

HUT 

CMP 

BEQ 

HUT 

CMP 

BEQ 

HUT 

CMP 

BEQ 

HUT 

MQV 

RTJ 

SCOPE 
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25 


jBRANCH IF ERROR 


#STACK4 

SAVSTK, 

,*4 

SAVSTK 

SSP 

; SAVE PROPER STACK ADDRESS FOR TYPING 

jCHECK THE stack pointer 

l BRANCH IF OK 

iSTACK POINTER NOT EQUAL TO #STACK4 

SOIVIi 
, if 4 

ANSI 

JCHECK THE ANSWER 
1 BRANCH JF OK 

SLEPT HALF OF ANSWER WRONG 


S0IV2, 

,*4 

ANS2 

ICHECK THE ANSWER 
, BRANCH IF OK 

j'RlGHT HALF OF ANSWER WRONG 


-(SP), 

35 

• (SP) 

IRESTQRE THE STACK 


#STKi, 

SAVSTK, 

,+4 

SAVSTK 

SSP 

jSAVE PROPER STACK ADDRESS FoR 
I CHECK THE STACK POINTER 
jBRANCH IF OK 
iSTACK POINTER FOULED UP 

TYPING 

#l*i 

,*< 

STK1 

JCHECK THE RTJ AODRESS ON THE 
jBRANCH IF OK 

jRTJ ADDRESS NOT EQUAL TO «1S 

STACK 

SOIVER, 

,*4 

STK2 

jCHECK THE PSW ON THE STACK 

j BRANCH IF OK 

jRTJ PSW NOT EQUAL TO U% 


RAND , C, 
,*4 

STK3 

jCHECK THE DATA ON THE STACK 

jBRANCH IF OK 

jSTK3 NOT EQUAL TO RANO.C 


RANO.D, 

STK4 

JCHECK THE DATA ON THE STACK 

jBRANCH IF OK 

j‘STK4 NOT EQUAL to rano.o 


RAND, A, 
,*4 

STK5 

jCHECK THE DATA ON THE STACK 

jBRANCH IF OK 

jSTK5 NOT EQUAL TO RAND, A 


RAND , B, 
, *4 

STK6 

jCHECK THE DATA ON THE STACK 
jBRANCH IF OK 
j STK6 NOT EQUAL TO RANO.B 


#35, 

(SP) 

j RESET THE STACK 
j RESTORE THE STATUS ( T«B I T ) 





^5 
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2319 







2320 

712650 

062767 

000001 

166130 


ADO 

2321 

712656 

705567 

166122 



ADC 

2322 







2323 

712662 

001 



DONE : 


2324 

712662 

032737 

002000 

177570 


BIT 

2325 

712670 

001002 




BNE 

2326 

712672 

000034 

000007 



TYPE 

2327 

712676 

005046 



IS: 

Cl* 

2328 

712700 

032737 

010000 

177570 


BIT 

2329 

712706 

001010 




BNE 

2330 

712710 

005167 

000044 



COM 

2331 

712714 

100005 




BPU 

2332 

712716 

052716 

000020 



BJS 

2333 

712722 

012746 

012754 



MQV 

2334 

712726 

000002 




RT I 

2335 

712730 

012746 

012736 


2$: 

MQV 

2336 

■712734 

300002 




PTJ 

2337 

712736 

013700 

000042 


4$: 

MOV 

2338 

712742 

001404 




8EQ 

2339 

712744 

004710 




JSR 

2340 

712746 

000240 




NOP 

2341 

712750 

000240 




NOP 

2342 

212752 

000240 




NQP 

2343 

212754 

000137 

00114$ 


3$: 

JNP 

2344 







2345 

212760 

000000 



. TBIT 1 

0- 

2346 







2347 







2348 





{SUBROUTINE 

2349 







2350 

712762 

004767 

002124 


REAOIN? 

JSR 

2351 

212766 

012702 

015212 



MQV 

2352 

712772 

012501 




MOV 

2353 

212774 

005011 




CLR 

2354 

212776 

112203 



IS: 

MOVB 

2355 

213000 

301420 




8EQ 

2356 

213002 

162703 

000060 



SUB 

2357 

713006 

000241 




cue 

2358 

213010 

032703 

177770 



BJT 

2359 

713014 

001010 




BNE 

2360 

213016 

006311 




ASL 

2361 

713020 

103407 




8CS 

2362 

713022 

006311 




ASL 

2363 

713024 

103405 




BCS 

2364 

713026 

006311 




ASL 

2365 

713030 

103403 




BCS 

2366 

713032 

050311 




BIS 

2367 

713034 

000760 




BR 

2368 

713036 

000261 



2% i 

SEC 

2369 

713040 

300244 



3$: 

CL? 

2370 

713042 

300205 



4$: 

RTS 


) 
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'f^S 


#li PCNT+2 ) COUNT PASSES 

PCNT 


#S«10,?#SWR (RING THE BELL? 

is i no : 

,bell 

«(6) | CLEAR TRACE TRAP 

#SW12,<MSWR | RUN WITH TRT? 

2$ 

, tbit 
2$ 

*20, (6) * SET TRACE TRAP 

#3S,.(6) j'JUMP To START OP TEST 

#4$, -(6) | JUMP TO START OP TEST 

I RETURN 

9*42, R0 | GET MONITOR ADDRESS 

3$ IIP NONE 

7,(0) j GO TO MONITOR 


94START | RETURN 


READ TTY INPUT AND SAVE OCTAL NUMBER 

PCiREADS 
* I NPUT | R2 
(R5)+,R1 
(Rl) 

(R2)*,R3 jSTORE DATA 

4$ } BRANCH IP DONE 

*60 , R3 

*177770, R3 
21 
(Rl) 

3$ 

(Rl) 

3$ 

(Rl) 

3S 

R3, (Rl ) 

1$ 


R5 


j SET CsB I T IP NOT 
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2371 







2372 

713044 

016746 

165552 


SPUSHI 

MQV 

2373 

713050 

016746 

165544 



MOV 

2374 

713054 

016746 

165546 



MOV 

2375 

713060 

016746 

165540 



MOV 

2376 

713064 

000134 



spolsh: 

JMP 

2377 







2376 

713066 

005767 

165536 


SPOPAD: 

TST 

2379 

713072 

001145 




BNE 

2380 

713074 

032716 

077600 



BIT 

2381 

713100 

001010 




BNE 

2382 

713102 

013767 

177776 

165520 


MQV 

2383 

713110 

005067 

165516 



clr 

2384 

713114 

005067 

165514 



cl» 

2385 

713120 

000532 




BR 

2386 







2387 

713122 

005716 



IS: 

TST 

2388 

713124 

013767 

177776 

165476 


MQV 

2389 

713132 

012667 

165474 



MQV 

2390 

713136 

012667 

165472 



MOV 

2391 

n'lQO 

713142 

000134 




JMP 

2392 

2393 

713144 

005767 

165470 


SPOPSBJ 

TST 

2394 

713150 

001116 




BNE 

2395 

713152 

032716 

077600 



BIT 

2396 

713156 

001010 




BNE 

2397 

713160 

013767 

177776 

165452 


MOV 

2398 

713166 

005067 

165450 



clr 

2399 

713172 

005067 

165446 



CLP 

2400 

713176 

000503 




BR 

2401 







2402 

713200 

005716 



IS: 

TST 

2403 

713202 

013767 

177776 

165430 


MOV 

2404 

713210 

012667 

165426 



MQV 

2405 

713214 

012667 

165424 



MOV 

2406 

713220 

000134 




JMP 

2407 







2408 

713222 

005767 

165422 


SPOPML» 

TST 

2409 

713226 

001067 




BNE 

2410 

713230 

032716 

077600 



BJT 

2411 

713234 

001010 




BNE 

2412 

713236 

013767 

177776 

165404 


MOV 

2413 

713244 

005067 

165402 



CLR 

2414 

713250 

005067 

165400 



CLR 

2415 

713254 

000454 




BR 

2416 







2417 

713256 

005716 



1$: 

TST 

2418 

713260 

013767 

177776 

165362 


MQV 

2419 

713266 

012667 

165360 



MOV 

2420 

713272 

012667 

165356 



MOV 

2421 

713276 

000134 




JMP 
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ROUTINES 


RAND,B,«(SP) 

RAND, A,*(SP) 

RAND , D, • ( SP ) 

RAND.C,*($P) 

P(R4> + 

SADDPS 
SSKIP 
#776001 
IS 

0#PS, 

SADD1 
SAPD2 
SSKIP 

(SP) | GET N-BITi CLEAR C»B { T , V*B I T 

P#PS, SAODPS | SET THE PSW SAVE 

(SP)*, SADD1 
( SP ) ♦ , SADD2 
*<R4)* 

SSUBPS | CHECK FOR ERROR 

SSKIP (BRANCH IF PS SET 

#77600 ( (SP) (CHECK FOR ZERO 

IS IBRANCH IF NOT 

##PS, SSUBPS (liBIT IN PSW 

SSUB1 IZERO ANSWER 

SSUB2 
SSKIP 

<SP> I GET NiBITi CLEAR C-BJTi V«B|T 

MPS, SSUBPS (SIT THE PSW SAVE 

(SP)*, SSUB1 
(SP)+, SSUB2 
•<R4>* 

SMULPS 
SSKIP 
#77600, 

IS 

*>#PS, 

SMUL1 
SMUL2 

SSKIP 

(SP) (GET N»B I T , CLEAR C.BJT, V«BIT 

•#PS, SMULPS (SET THE PSW SAVE 
(SP)*, SMUL1 
<SP)+, SMUL2 
P ( R4 ) * 


(CHECK FOR ERROR 
(BRANCH IF PS SET 
(SP) (CHECK FOR ZERO 
(BRANCH IF NOT 
SMULPS ( Z*B I T IN PSW 
(HERO ANSWER 


(CHECK FOR ERROR 
(BRANCH IF PS SET 
(SP) (CHECK FOR HERO 
(BRANCH IF NOT 
SADDPS (H»B!T JN PSW 
(ZERO ANSWER 


v> 



J* 
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2422 

2423 

013300 

032767 

077600 

165316 

SPOPDVS 

9JT 

#776001 

RANO.C 

(CmECK FOR DIVIDED BY HERO 

2424 

013306 

E01010 




BN t 

IS 


j SET ALL CONDITION CODES 

2425 

713310 

000277 




sec 



2426 

713312 

000244 




CL 2 



1 CLEAR THE H-BJT 

2427 

713314 

013767 

177776 

165344 


MOV 

@#PS, 

$05 VER 

(SET UP DIVIDE BY ZERO CC' 

2428 

713322 

012767 

303340 

165330 


MQV 

#340, 

SD I VPS 

1 SET UP PSW 

2429 

713330 

005767 

165324 


IS: 

TS-T 

SOI VPS 


{CHECK FOR ERROR 

2430 

713334 

001024 



BNE 

SSK JP 


j BRANCH IF PS SET 

2431 

713336 

032716 

377600 



SJT 

#77600, 

(SP) 

(CHECK FOR HERO 

2432 

713342 

001010 




BNE 

2 $ 

SOI VPS 

j BRANCH IF NOT 

2433 

713344 

013767 

177776 

165306 


MOV 

S»#PS , 

(Z.BIT in PSW 

2434 

713352 

005067 

165304 



Cl* 

SDJVl 


J ZERO ANSWER 

2435 

713356 

005067 

165302 



CUR 

SDJV2 



2436 

713362 

000411 




BR 

SSK IP 



2437 

2438 

713364 

005716 



2 $: 

TST 

(SP) 


(GET N-BJT, CLEAR C-BJT, V 

2439 

713366 

013767 

177776 

165264 


MQV 

P#PS, 

SD! VPS 

j SET THE PSW SAVE 

2440 

713374 

012667 

165262 



MOV 

(SP)+, 

SDJVl 


2441 

713400 

012667 

165260 



MOV 

(SP)*, 

SDJV2 


2442 

2443 

2444 

713404 

000134 




JMF 

P(R4>* 



713406 

022626 



SSK I P 1 

CMP 

(SP)*, 

(SP)* 

jpcp garbage off the stack 

2445 

2446 

713410 

000134 




JMP 

*?R4>* 


lEXIT POLISH MODE 

2447 

713412 

000204 



SEXJTJ 

RTS 

R4 


2448 

2449 

713414 

016500 

000002 


SERRi 

MQV 

2(5), 

R0 

J PUT CODE INTO R0 

2450 

713420 

022700 

004003 


SERRAI 

CMP 

#4003, 

R 0 

(CHECK FOR DIVIDE BY ZERO 

2451 

2452 

2453 

713424 

001464 




BEQ 

85 


J 5 K J P OUT 

713426 

122700 

000003 



cmpb 

#3. 

R0 

(CHECK FOR OVERFLOW 

2454 

713432 

001006 




BNE 

2 S 


(BRANCH JP NOT 

2455 

713434 

000257 




CCC 



(CLEAR ALL CONOITJON CODES 

2456 

713436 

000262 




SEV 



(SET THE V* 8 J T 

2457 

713440 

013767 

177776 

165146 


MOV 

##PS, 

SPSW 

(SET UP PSW FOR OVERFLOW 

2458 

2459 

2460 

713446 

000405 




BR 

3$ 



713450 

000257 



2$ : 

CCC 



(CLEAR ALL CONDITION CODES 

2461 

713452 

000272 




SNV 



(SET N»BI T AND V-BJT 

2462 

713454 

013767 

177776 

165132 


MOV 

PSPS, 

SPSW 

(SET UP PSW FOR UNDERFLOW 

2463 

713462 

105000 



3$ : 

CIRB 

R0 


(CLEAR LOW BYTE 

2464 

713464 

000300 




SWA9 

R0 


(HIGH BYTE INTO LOW 

2465 

713466 

162700 

000002 



SUB 

# 2 , 

R0 

(CHECK FOR ADD/'SUB 

2466 

713472 

001021 




BNE 

5S 


(BRANCH IF NOT 

2467 

713474 

005767 

165130 



TST 

5ADDPS 


(CHECK FOR ADD 

2468 

713500 

001007 




BNE 

41 


(BRANCH IF NOT 

2469 

713502 

316767 

165106 

165126 


MOV 

SPSW, 

sadder 

(SET UP ADD ERROR PSW 

2470 

713510 

012767 

000340 

165112 


MQV 

#340, 

SADDPS 

(SET UP ADO PSW 

2471 

713516 

300427 




BR 

8$ 



24 72 
2473 

713520 

016767 

165070 

165120 

4$: 

MQV 

SPSW, 

SSUBER 

j SET UP SUBTRACT ERROR PSW 

2474 

713526 

012767 

000340 

165104 


MQV 

#340, 

SSUBPS 

(SET UP SUBTRACT PSW 

2475 

713534 

000420 




BR 

8$ 
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2476 









2477 

013536 

162700 

000004 


5S: 

SUB 

#4 1 R0 

{ CHECK FOR MUL 

2478 

? 13542 

003407 




BIE 

6$ 

, BRANCH IF NOT 

2479 

013544 

016767 

165244 

165104 


M 0 V 

$PSW# SMUUER 

ISFT UP MULTIPLY ERROR PSW 

24P0 

013552 

012767 

030340 

165070 


MQV 

#340, SMULPS 

j SET UP MULTIPLY PSW 

2451 

"13560 

000406 




BR 

8$ 


2 482 
2483 

013562 

016767 

165026 

165076 

6$: 

MQV 

SPSW, SDJVER 

1 SET UP DIVIDE ERROR PSW 

2484 

713570 

012767 

000340 

165062 

7$: 

MQV 

#340, SDIVPS 

{SET UP DIVIDE PSW 

2455 

713576 

700225 



8$ s 

RTS 

R5 

, RETURN TO FORTRAN 

2486 

2487 





{SUBROUTINE TO 

PUSH DATA ONTO STACK 

2468 

2489 

713600 

016767 

165016 

165034 

PUSHRI 

MOV 

RAND.B, STACK6 

(PUT DATA ON THE STACK 

24921 

713606 

016767 

165006 

164774 


MOV 

RAND, A, STACK# 


2491 

713614 

016767 

165006 

164764 


MOV 

RANO.Di STACK? 


2492 

713622 

016767 

164776 

164754 


MOV 

RAND, Ci STACK0 


2493 

713630 

311637 

000244 



MOV 

<SP># ##244 

1 SET UP TRAP VECTOR 

2494 

713634 

062737 

300004 

000244 


ADO 

#4, P#244 


2495 

713642 

000227 




RTS 

PC 


2496 

2497 

713644 

332737 

000400 

177570 

SCOPES! 

BIT 

#SW08,##SWR 

1 KILL LDUB OR LOOP ON SPEC’, TEST 

2498 

713652 

001412 




BEQ 

IS 


2499 

713654 

013767 

177570 

000134 


MOV 

•#5WR, SCOTMP 

{SAVE SWR 

2502? 

713662 

042767 

177600 

000126 


BJC 

#177600, SCOTMP 

I CLP ALL BUT TEST NO , 

2501 

713670 

126767 

000 122 

165102 


CMPB 

SCOTMP, JCNT 

JON RJGHT TESTY #SW6»0* 

2502 

713676 

001434 




BEQ 

OVERS 


2503 

713700 

032737 

040000 

177570 

IS! 

BIT 

#SWl4,f»#SWR 

(LOOP ON TEST 

2504 

713706 

001026 




BNE 

KJTS 


2505 

713710 

032737 

004000 

177570 


BJT 

#SW11,»#SWR 

(KILL ITERATIONS 

2506 

713716 

001012 




BNE 

SVLAOS 


2507 

713720 

105767 

169055 



TST8 

ICNT+l 


2508 

713724 

001404 




BEQ 

2$ 

IBRANCN IF FIRST 

2509 

713726 

126767 

000062 

165045 


CMPB 

TIMES, JCNT41 

I'OONE? 

2510 

713734 

001013 




BNE 

KJTS 

{BRANCH IP NOT 

2511 

713736 

112767 

000001 

165035 

2S ! 

MOVB 

#1,1 CNT+1 

{FIRST ITERATION 

2512 

713744 

105267 

165030 


SVLAOS i 

JNCB 

ICNT 

{COUNT TEST NUMBERS 

2513 

713750 

011667 

000036 



MQV 

(6), LAOS 

{SAVE LOOP ADDRESS 

2514 

713754 

016737 

165020 

177570 


MOV 

ICNT,P#DISPLA¥ 

{‘DISPLAY TEST NO, AND ITERATION COUNT 

2515 

713762 

000002 




RTI 


(RETURN 

2516 









2517 

713764 

105267 

165011 


KITS! 

INCB 

I CNT+S 


2518 

713770 

016737 

169004 

177570 

OVERSI 

MQV 

JCNT,P#D!SPLAY 

{'SET UP DISPLAY 

2519 

713776 

005767 

000010 



TST 

LAOS 

(FIRST ONE! 

2520 

714002 

001760 




8EQ 

SVLAOS 


2521 

714004 

016716 

000002 



MOV 

LADS, (6) 

{'FUDGE RETURN ADDRESS 

2522 

714010 

300002 




RTI 


(FIXES PS 

2523 









2524 

714012 

000000 



LADS! 

0 


(LOOP AODRESS 

2525 

714014 

000377 



TIMESI 

377 


(RUN 377 TIMES 

2526 

714016 

003000 



SCOTMP ! 

0 




O 






W 



O 



1 
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2527 

?1 4020 

032737 

002000 

177570 

HUTS! 

BIT 

#SW10,*#SHR 

IBEUU ON ERROR? 

2528 

714026 

001402 




BEG 

1$ 

J NO * SKIP 

2529 

? 14030 

000004 

000007 



TYPE 

, 8EUL 

) RJ NG RELU 

2530 

014034 

005267 

164742 


IS * 

INC 

ERRORS 

(COUNT THE NUMBER OF ERRORS 

2531 

014040 

032737 

020000 

177570 


BIT 

#SWl3 , P#SWP 

ISKJP TYPEOUT IF SET 

2532 

f 14046 

001017 




BNE 

2$ 

iSKJP typeouts 

2533 

014050 

000004 

315362 



TYPE 

.RETURN 


2534 

? 14054 

011667 

000060 



MOV 

( 6) , HUTADS 

j PUT ADDRESS OF INSTRUCTION ON STACK 

2535 

014060 

162767 

000002 

000052 


SUB 

#2,HUTADS 


2536 

014066 

016705 

000046 



MOV 

hutads.tty 

('TYPE HUTADS IN OCTAU 

2537 

014072 

004767 

001300 



JSR 

X7 , PR I NTR 

jTYPE UEADING HERO'S 

2538 

014076 

000004 

015370 



TYPE 

,SPACE*3 


2539 

014102 

004767 

000034 



JSR 

PC, ERRORS 

1 GO TO USER ERROR ROUTINE 

2540 

014106 

005737 

177570 


21: 

TST 

• #SWR 

! HAUT ON ERROR 

2541 

014112 

100001 




BPU 


/SKIP IF CONTINUE 

2542 

014114 

000000 




HAUT 


/HAUT ON ERROR! 

2543 

014116 

032737 

001000 

177570 


BJT 

#SW09,##SWR 

/CHECK FOR INHIBIT UOOP ON ERROR 

2544 

014124 

001001 




BNE 

,*< 

(SKIP JF UOOP ON ERROR 

2545 

014126 

000002 




RTI 



2546 

014130 

105067 

164645 



CURB 

ICNT+1 


2547 

014134 

000167 

177624 



JMP 

KITS 

/UOOP ON TEST UNTIL NO ERRORS 

2548 









2549 

014140 

000000 



HUTADSS 

0 



2550 









2551 

014142 

010046 



ERRORS! 

MOV 

R0 , M5P) 

1 SAVE R0 

2552 

014144 

010146 




MQV 

Rl, MSP) 

1 SAVE Rl 

2553 

014146 

000004 

015370 



TYPE, 

SPACE*3 


2554 

014152 

016705 

164442 



MOV 

RAND, A, TTY 

jTYPE RANO,A IN OCTAU 

2555 

014156 

004767 

001214 



JSR 

X7 1 PR I NTR 

/TYPE UEADING HERO'S 

2556 

014162 

000004 

014702 



TYPE, 

COMMA 


2557 

014166 

016705 

164430 



MOV 

RAND, B, TTY 

/ TYPE RANO.B JN OCTAU 

2558 

014172 

004767 

001200 



JSR 

XT, PR J NTR 

/TYPE UEAQJNG HERO'S 

2559 

014176 

013700 

000244 



MQV 

*#244 , R0 

/GET PC+2 OF INSTRUCTION 

2560 

014202 

014001 




MQV 

MRS) , Rl 

/GET THE INSTRUCTION 

2561 

014204 

042701 

177747 



8 JC 

#177747, Rl 

/MASK ALU BUT TYPE (+,«,»</) 

2562 

014210 

006201 




ASR 

Rl 

101 V BY 2 

2563 

014212 

012767 

014662 

000006 


MOV 

#S I GNS , IS 

/SET TO TOP OF SJGN TABUE 

2564 

014220 

060167 

000002 



ADD 

Rl, IS 

/ADO OFFSET 

2565 

014224 

000004 




TYPE 



2566 

014226 

014662 



IS! 

SJGNS 


jTYPE THE RIGHT SIGN 

2567 

014230 

016705 

164370 



MOV 

RAND, C, TTY 

/TYPE RANO.C IN OCTAU 

2568 

014234 

004767 

001136 



JSR 

%7 , PR J NTR 

JTYPE LEADING HERO'S 

2569 

014240 

000004 

014702 



TYPE, 

COMMA 


2570 

014244 

016705 

164356 



MOV 

RAND, D, TTY 

jTYPe rand , D IN octau 

2571 

014250 

004767 

001122 



JSR 

XT , PR 1 NTR 

JTYPE LEADING HERO'S 

2572 

014254 

006301 




ASU 

Rl 

(RESET TABLE POINTER 

2573 

014256 

062701 

000630 



ADD 

#$ADDPS,R1 


2574 

014262 

105767 

164326 



TSTB 

SPSW 

(CHECK FOR ERROR CONDITIONS 

2575 

014266 

100460 




BMI 

3S 

jBRAMCH IF ERROR 

2576 

014270 

000004 

014704 



TYPE, 

HEAOi 


2577 

014274 

000004 

015062 



TYPE, 

EXPECT 


2578 

014300 

012105 




MOV 

( Rl ) *, TTY 

(TYPE (Rl)* IN OCTAL 

2579 

014302 

004767 

001070 



JSR 

%7, PR I NTR 

/TYPE LEADING HERO'S 

2580 

014306 

000004 

015370 



TYPE, 

SPACERS 




iINDEC 

-11-DBKEB-A . 

KEllP (PDP-11 PIS) 

EXERCISER, 

MACY11.620 

IKEBA.PH 

HLT ROUTINE (ERROR TYPEOUT) 



2581 

2 14312 

012705 

000610 

MOV 

#stack4,t!y 

2582 

’14316 

004767 

001054 

JSR 

X7 , PR I NTR 

2583 

>14322 

000004 

015370 

TYPE, 

SPACE*3 

2584 

214326 

012105 


MOV 

(R1)*,TTY 

2585 

214330 

004767 

021042 

JSR 

X7, PR I NTR 

2586 

214334 

000004 

014702 

TYPE, 

comma 

2587 

214340 

011105 


MQV 

(Rl) , TTY 

2588 

214342 

004767 

001030 

JSR 

X7,PRJNTR 

2589 

214346 

000004 

015076 

TYPE, 

GOT 

2590 

214352 

016705 

164236 

MOV 

$PSW , TTY 

2591 

214356 

004767 

001014 

JSR 

X7,PRINTR 

2592 

214362 

000004 

015370 

TYPE, 

SPACE*3 

2593 

714366 

016705 

164224 

MQV 

SSP, TTY 

2594 

214372 

004767 

001000 

JSR 

X7, PR I NTR 

2595 

214376 

000004 

015370 

TYPE, 

SPACE*3 

2596 

214402 

016705 

164202 

MQV 

ANSI, TTY 

2597 

214406 

004767 

000764 

JSR 

X7,PRINTR 

2596 

214412 

000004 

014702 

TYPE, 

COMMA 

2599 

214416 

016705 

164170 

MOV 

ANS2, TTY 

2600 

214422 

004767 

000750 

JSR 

X7 , PR I NTR 

2601 

2602 

2603 

214426 

000510 


BR 

7S 

214430 

000004 

014751 3$J 

TYPE, 

HEAD2 

2604 

214434 

000004 

015062 

TYPE, 

expect 

2605 

214440 

012105 


MOV 

(RU + »TTY 

2606 

214442 

004767 

000730 

JSR 

X7,PRJNTR 

2607 

214446 

000004 

015370 

TYPE, 

SPACE+3 

2608 

214452 

016705 

164212 

MOV 

SAVSTK, TTY 

2609 

214456 

004767 

000714 

JSR 

X7,PRJ NTR 

2610 

214462 

000004 

015370 

TYPE, 

SPACE*3 

2811 

214466 

005720 


TST 

(R0>* 

2612 

214470 

010005 


MOV 

R0, TTY 

2613 

214472 

004767 

000700 

JSR 

X7,PRJNTR 

2614 

214476 

000004 

015370 

type, 

SPACE*? 

2615 

214502 

022121 


CMP 

(Rl)*, (Rl 

2616 

214504 

011105 


MQV 

(Rl ) , TTY 

2617 

214506 

004767 

000664 

JSR 

X7,PRJNTR 

2618 

214512 

000004 

015370 

TYPE, 

SPACE*? 

2619 

214516 

016705 

164102 

MOV 

RAND, Ci TTY 
X7 , PR j NTR 

2620 

214522 

004767 

000650 

JSR 

2621 

214526 

000004 

015370 

TYPE, 

SPACE*? 

2622 

214532 

016705 

164070 

MOV 

RAND, D, TTY 

2623 

214536 

004767 

000634 

JSR 

X7 , PR I NTR 

2624 

214542 

000004 

015370 

TYPE, 

SPACE*3 

2625 

214546 

016705 

164046 

MQV 

RAND , A, TTY 

2626 

214552 

004767 

000620 

JSR 

X7, PR I NTR 

2627 

214556 

000004 

015370 

TYPE, 

SPACE*? 

2628 

214562 

016705 

164034 

MOV 

rand,b,tty 

2629 

214566 

004767 

000604 

JSR 

X7,PR JNTR 

2630 

214572 

000004 

015076 

TYPE, 

GOT 

2631 

214576 

016705 

164012 

MQV 

SPSW, TTY 

2632 

214602 

004767 

000570 

JSR 

%7, PR J NTR 

2633 . 

214606 

000004 

015370 

TYPE, 

SPACE*3 

2634 

2^f^2 

016705 

164000 

MQV 

SSP, TTY 
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j TYPE #STACK4 IN OCTAL 
I TYPE LEADING ZERO'S 

j TYPE (Rl)* IN OCTAL 
jTYPE LEADING ZERO'S 

) TYPE (Rl) IN OCTAL 
J TYPE LEADING ZERO'S 

I TYPE *PSW JN OCTAL 
I TYPE LEADING ZERO'S 

jTYPE SSP in octal 
(TYPE LEADING ZERO'S 

I TYPE ANSI IN OCTAL 
jTYPE LEADING ZERO'S 

jTYPE ANS2 IN OCTAL 
jTYPE LEADING HERO'S 


jTYPE (Rl)* IN OCTAL 
JTYPE LEAOING ZERO'S 

jTVPE SAVSTK IN OCTAL 
J TYPE LEADING ZERO'S 

lUPDATE R0 TO RIGHT ADDRESS 
jTYPE R0 JN OCTAL 
(TYPE LEADING lERO'S 

* JADO 4 TO Rl 

J TYPE (Rl) IN OCTAL 
jTYPE LEADING ZERO'S 

jTYPE RAND', C JN OCTAL 
jTYPE LEADING ZERO'S 

j type r and , o in octal 

jTYPE LEADING ZERO'S 

I TYPE RAND , A JN OCTAL 
j TYPE LEADING ZERO'S 

J TYPE RAND.B JN OCTAL 
jTYPE LEADING ZERO'S 

! TYPE SPSW IN OCTAL 
I TYPE LEADING HERO'S 


j TYPE SSP IN OCTAL 



o 

MAINDEC-U-0BKE3-A KEllf (PDP-11 PIS) EXERCISER. 

DBKE3A.PU Ht,T ROUTINE (ERROR TYPEOUT) 


2635 

014616 

004767 

000554 



JSR 

2636 

714622 

012701 

000600 



MOV 

263 7 

714626 

012700 

000006 



MOV 

2636 

714632 

000004 

015370 


6$: 

TYPE. 

2639 

714636 

212105 




MOV 

2640 

714640 

004767 

003532 



JSR 

2641 

714644 

005300 




DEC 

2642 

714646 

001371 




BNE 

2643 

714650 

000004 

015362 


7$ : 

type, 

2644 

714654 

012601 




MOV 

2645 

714656 

012600 




MOV 

2646 

714660 

000207 




RTS 

2647 







2648 

714662 

025440 

000040 


SJGNSI 

. ASC I 2 

2649 

714666 

026440 

300040 



, ASCII 

2650 

714672 

025040 

000040 



, ASCII 

2651 

714676 

027440 

000040 



.ASCII 

2652 







2653 

714702 

000054 



COMMA | 

.ASCII 

2654 







2655 

714704 

005015 

020040 

020040 

HEAD1I 

.ASCII 

2656 

714712 

020040 

020040 

020040 



2657 

714720 

050040 

053523 

020040 



2658 

714726 

020040 

051440 

020120 



2659 

714734 

020040 

020040 

020040 



2660 

714742 

047101 

053523 

051105 



2661 

714750 

000 





2662 

714751 

013 

020012 

020040 

HEA02I 

.ASCII 

2663 

714756 

020040 

020040 

020040 



2664 

714764 

020040 

051520 

020127 



2665 

714772 

020040 

020040 

050123 



2666 

715000 

020040 

020040 

051440 



2667 

715006 

043524 

020061 

020040 



2668 

715014 

051440 

045524 

020062 



2669 

715022 

000040 

054440 

045524 



2670 

715030 

020063 

020040 

051440 



2671 

715036 

045524 

020064 

020040 



2672 

715044 

051440 

045524 

020065 



2673 

715052 

020040 

051440 

045524 



2674 

715060 

000066 





2675 

715062 

005015 

054105 

042520 

EXPECT! 

.ASCII 

2676 

715070 

052103 

020072 

000040 



2677 

715076 

005015 

047507 

035124 

GOT! 

.ASCII 

2678 

715104 

020040 

020040 

000040 



2679 






.EVEN 
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R3 , « ( 6 ) 

# I NPUT | R3 
# i DUES) R3 

4$ 

*#177560 

,«4 

*#177562,(3) 

#200,(3) 

#177,(3) 

3$ 

, ,QUES 
IS 

(3), .TYPE 
..type 

#15, (3)4 
2$ 

»i(3> 

,12 

(6)4, R3 
PC 


j SAVE R3 
I GET ADDRESS 

(CHECK FOR BUFFER OVERFLOW 

(ABORT 

(WAIT FOR 

(A CHARACTER 

(GET CHARACTER 

(GIT RIO OF JUNK 

(IS IT A RUBOUT 

(SKIP IF NOT 

(TYPE A '?' 

(ZAP THE BUFFER AND LOOP 
(SET UP FOR TYPING 
(ECHO IT 

(CHECK FOR RETURN 
(LOOP IF NOT RETURN 
(ZAP RETURN (THE 15) 

(TYPE A LINE FEED 
(RESTORE R3 
(RETURN 


20 

"?"<15><12> 


TTY, -(6) (SAVE TTY 

#2(6) i TTY (GIT ADDRESS TO BE TYPED 

#177400, TTY (jS IT A TYPEM? 

IS I NO 

TTY, .TYPE (GET THE CHARACTER 

#, TYPE, TTY (FUDGE THE ADDRESS 

(TTY) (TERMINATOR? 

2S (GET OUT JF SO 

(TTY)*, ##177566 (LOAD AND TYPE THE CHARACTER 
•#177564 (IS THE PRINTER READY 

,-4 (WAIT UNTIL IT IS 

IS (GET THE NEXT CHARACTER 

•2(6), »(6) (GET ADDRESS TO BE TYPED 

#2,4(6) (ADD 2 TO THE ADDRESS 

(6)*, 2(6) (IS IT ,*2t 

3$ (NO 

#2, TTY (ADD 2 TO THE ADDRESS 

#1 , TTY (BACK UP TO AN EVEN BYTE 

TTY, 2(6) (RESTORE ADDRESS 

( 6 ) 4 , TTY (RESTORE TTY 

(RETURN 


<15><12> (RETURN AND LINEFEED 

<15><12>" " (RETURN AND 3 SPACES 


(CHARACTER TYPE LOCATION 
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OBKEBA.PU TYPE ROUTINE 

2732 


2733 

715376 

112767 

000001 

000130 

PRINTR! 

MQVB 

#li ,PR 

} SET 2ER0 FtUU SWITCH 

2734 

715404 

000402 




BR 

,*6 

(SKIP 

2735 

715406 

005067 

000122 


PRINTS! 

clR 

,PR 

ISUPRESS LEADING HERO* S 

2736 

715412 

112767 

177772 

000115 


M0V8 

4b6 , , PR+1 

(SET COUNT 

2737 

715420 

010446 




MOV 

R4 i * ( 6 ) 

(SAVE R4 

2738 

715422 

012704 

015524 



MOV 

*,PRBUF,R4 

1 SET POINTER TO FIRST ASCII CHAR 

2739 

715426 

105014 




CURB 

(4) 

J CLEAR FIRST BVTE 

2740 

715430 

000405 




BR 

.PRF 

1 ROT ATE FIRST BIT 

2741 

715432 

105014 



i PRL ! 

CURB 

< 4 ) 

1 CLEAR BYTE OF CHARACTER 

2742 

715434 

006105 




ROU 

TTY 

1 ROT ATE BJT INTO C 

2743 

715436 

106114 




ROUB 

(4) 

{PACK IT 

2744 

715440 

006105 




ROL 

TTY 

) ROTATE BIT INTO C 

2745 

715442 

106114 




ROUB 

(4) 

(PACK IT 

2746 

715444 

006135 



. PRF ! 

ROU 

TTY 

1 ROTATE BIT INTO C 

2747 

715446 

106114 




ROUB 

(4) 

IPACK IT 

2748 

715450 

105714 




TSTB 

< 4 ) 

jJS IT HERO? 

2749 

715452 

001402 




BEO 

,*6 

I'SKIP INC 

2750 

715454 

105267 

000054 



I NCB 

, PR 

» SET FILL SWITCH 

275J 

715460 

105767 

000050 



TSTB 

,PR 

(CHECK FILL SWITCH 

2752 

715464 

001402 




8EQ 

. *8 

ISKJP 8ITSET 

2753 

715466 

152724 

000060 



BJSB 

*'0| (4>+ 

(MAKE INTO ASCJI CHAR 

2754 

715472 

105267 

000037 



I NCB 

,PR*1 

1 INC COUNT 

2755 

715476 

001355 




BNE 

,P«U 

('REPEAT- 

2756 

715500 

022704 

015524 



CMP 

#.PRBUF,R4 

1 EMPTY BUFFER? 

2757 

715504 

001002 




BNE 

i *8 

iSKJP IF NOT 

2758 

715506 

112724 

000060 



MOVB 

#'0, (4}+ 

(LOAD 1 ZERO 

2759 

715512 

105014 




CURB 

<4) 

1 NULL TERMINATOR 

2760 

715514 

000004 

015524 



TYPE 

i i PRBUP 

ITYPE IT 

2761 

715520 

012604 




MOV 

(6J+.R4 

(RESTORE R4 

2762 

715522 

000207 




RTS 

PC 

(RETURN 

cl 00 
2764 

715524 

000004 



.prbufs 

,BUKW 

4 

(OUTPUT BUFFER 

2765 

715534 

000000 



, PR t 

0 


(COUNT AND SWITCH 



MAiNDEC-il-OBKEB-A KEllF (PDP-11 PIS) EXERCISER, MACYU.620 

DBKEBA.Pil OCTAL DUMP Of A WORD 6 18 BIT ADDRESS TYPER 


2766 








2767 

015536 

012777 

315652 

000120 

PDOWNS: 

MOV 

* ILLUP,RPyVEC$ 

2768 

015544 

012777 

300340 

000114 


MOV 

#340,»PUVECS*2 

2769 

015552 

010046 




MOV 

R0,»(6) 

2770 

015554 

010146 




MOV 

Ri,»(6> 

2771 

015556 

010246 




MOV 

R2,*(6) 

2772 

015560 

010346 




MOV 

R3, « ( 6 ) 

2773 

015562 

010446 




MOV 

R4 , • { 6 ) 

2774 

015564 

010546 




MOV 

R5,»(6) 

2775 

015566 

010667 

300064 



MOV 

SP, , SAVR6 

2776 

015572 

012777 

015602 

000064 


MOV 

#PUPS,PPUVECS 

2777 

015600 

000000 




HALT 


2778 








2779 

015602 

016706 

000050 


PUPS! 

MOV 

,SAVR6,SP 

2780 

015606 

005001 




CCR 

Ri 

2781 

015610 

005201 



IS! 

INC 

Rl 

2782 

015612 

001378 




BNE 

1$ 

2783 

015614 

012605 




MOV 

(6)*,R5 

2784 

015616 

012604 




MOV 

(6)4, R4 

2785 

015620 

012603 




MOV 

(6>*,R3 

2786 

015622 

012602 




MOV 

( 6 )*, R2 

2787 

015624 

012601 




MOV 

(6)4, Rl 

2788 

015626 

012600 




MOV 

(6)4, Rf 

2789 

015630 

012777 

015536 

000022 


MOV 

•PDOWNS , PROVE CS 

2790 

015636 

012777 

000340 

000016 


MOV 

•340,PPDVECS42 

2791 

015644 

000004 

015670 



TYPE 

, POWER* 

2792 

015650 

000002 




RTJ 


2793 








2794 

015652 

000000 



ICLUPI 

halt 


2795 

015654 

000776 




BR 

,•2 

2796 








2797 

015656 

000000 



, SAVR6I 

0 


2798 

045660 

000024 

000026 


POVECSt 

24,26 


2799 

015664 

000024 

000026 


PUVECS! 

24,26 


2800 

015670 

005015 

047520 

042527 

POWERS! 

, ASCII 

<15><12>"P0WER" 

2801 

015676 

000122 






2802 






.EVEN 


2803 








2804 


000001 



.end 
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1 SET FOR FAST UP 
|PRJ0|7 

[PUSH R0 ON STACK 
I PUSH Rl ON STACK 
I PUSH R2 ON STACK 
j PUSH R3 ON STACK 
I PUSH R4 ON STACK 
I PUSH R5 ON STACK 
I SAVF SP 
[SET UP VECTOR 


[GET SP 

[WAIT COOP FOR THE TTY 
{WAIT FOR THE INC 
[OF WORD 

[POP STACK INTO R5 

[POP STACK INTO R4 

[POP STACK INTO R3 

[POP STACK INtO R2 

[POP STACK INTO R4 

[POP STACK INTO RB 

[SET UP TH| POWER DOWN VECTOR 

| PR JO J 7 


[THE POWER UP SEQUENCE WAS STARTED 
I BEFORE THE POWER DOWN WAS COMPLETE 

[PUT THE SP HERE 
[POWER DOWN VECTOR 
[POWER UP VECTOR 




MAJNDEC 


ii-OBKEE 

l* A 

KEUF 1 

(PDP«11 FIS) 

EXERCISER. 

MACYU.620 

22»AUG»72 

11)40 PAGE 57 

DBKEBA # PH 

SYMBOL 

TABLE 








ANSI 


000610 


ANS2 


000612 

begin 


001010 

BELL 

s 000007 

BJT0 


000001 


sin 

s 

000002 

BJT10 

9 

002000 

B I Til 

e 004000 

BJT12 

S 

010000 


6JT13 

s 

020000 

8JT14 

z 

040000 

BJY15 

8 100000 

B1T2 

— 

000004 


BIT3 

= 

000010 

BJT4 

z 

000020 

BJT5 

s 000040 

B I T 6 

r 

000100 


B I T7 

s 

000200 

BJT8 

z 

000400 

B l T9 

S 001000 

ccc 

— 

000257 


COMMA 


014702 

DISPLA 

z 

177570 

DONE 

042662 

ERRORS 


001002 


errors 


014142 

EXPECT 


015062 

FADD 

a 075000 

FD! V 


075030 


fistrp 


000754 

FMUL 

Z 

075020 

FQRT4N 

001360 

FSUB 

- 

075010 


GOT 


015076 

HEAD1 


014704 

HEAD2 

014751 

HIT 

- 

104000 


HLTAD5 


014140 

HUTS 


014020 

SCNT 

001000 

IlLUP 


015652 


INPUT 


015212 

KITS 


013764 

LAOS 

01401? 

LEVEL0 

5 

000000 


LEVEL1 

s 

000040 

LEVELS 

= 

000100 

LEVELS 

s 000140 

LEVEL A 

z 

000200 


LEVEL5 

5 

000240 

LEVEL6 

5 

000300 

LEVEL7 

s 000340 

N 

— 

000035 


OVERS 


013770 

PC 

s 

X000007 

PONT 

001004 

PDOWNS 


015536 


PDVECS 


015660 

POWERS 


015670 

PRINTR 

015376 

PRINTS 


015406 


PS 

z 

177776 

pups 


015602 

pgSHR 

013600 

PUVECS 


015664 


RAND. A 


000620 

RAND , B 


000622 

RAND', C 

000624 

RAND.D 


000626 


RAND4S 


000674 

READIN 


012762 

READS 

015112 

RETURN 


015362 


RNDFLG 


000672 

R0 

8 

X000000 

R1 

8X000001 

R2 

- 

X 000002 


R3 

s; 

X000003 

R4 

4X000004 

R5 

8X000005 

SAVSTK 


000670 


sec 

: 

000277 

SCOPE 

5 

104400 

SCOPES 

013644 

SCOTMP 


014016 


SIGNS 


014662 

SNV 


000272 

SP 

8X000006 

SPACE 


015365 


STACK0 


000604 

STACK2 


000606 

STACK4 

000610 

STACK6 


000612 


START 


001146 

STK1 


000600 

STK2 

000602 

STK3 


000604 


STK4 


000606 

STK5 


000610 

STK6 

000612 

SVLADS 


013744 


SWR 

s 

177570 

SW08 

3 

000400 

SW09 

8 001000 

SW10 

S 

002000 


swu 

s 

004000 

SW12 

= 

010000 

SWJ3 

8 020000 

SW14 

s 

040000 


SW15 

z 

100000 

TIMES 


014014 

tstl 

001440 

TST10 


004202 


TSUI 


004442 

TST12 


004702 

TST13 

00514? 

TST14 


005402 


TST15 


005642 

TST16 


006102 

TST17 

006344 

TST2 


002000 


TST20 


006604 

TST21 


007044 

TST22 

007304 

TST23 


007544 


TST24 


010004 

TST25 


010244 

TSI26 

010506 

TST27 


010746 


TST3 


002340 

TST30 


011206 

TST31 

011440 

TST32 


011706 


TST33 


012146 

TSY34 


012406 

TSf 4 

002700 

TST5 


003240 


TST6 


003500 

TST7 


003740 

TTY 

8X000005 

TYPE 

s 

000004 


TYPIN 


001210 

YESRT 


0007?2 

SADDER 

000636 

SADDPS 


000630 


SAOOl 


000632 

SADD2 


000634 

SADR 

r. G 

SDIVER 


000666 


SO I VPS 


000660 

SDJVl 


000662 

S0IV2 

000664 

$0VR 

s 

*«»••• 

G 

$err 


013414 0 

SERRA 


013420 G 

SEX IT 

813412 

$mlr 

z 


G 

SMULER 


000656 

SMULPS 


000650 

SMUL1 

000652 

SMUL2 


000654 


SPOLSH 


013064 

SPOPAD 


013066 

SPOPDV 

013300 

SPOPHL 


013222 


SPOPSB 


013144 

SPSW 


000614 

SPUSH 

013044 

SSBR 

z 

H«8M 

G 

SSKIP 


013406 

SSP 


000616 

SSUBER 

000646 

SSUBPS 


000640 


SSU31 


000642 

SSUB2 


000644 

'.BIT 

s 177777 

> I OT 


015256 


.PR 


015534 

, PRBUF 


015524 

PRF 

015444 

,PRL 


015432 


,QUES 


015252 

,SAVR6 


015656 

'.TBIT 

012760 

.TYPE 


015374 


» 

= 

015700 







000000 


ERRORS EJECTED! 




.TITLE saor 

CSECT 

IgLOBL SA0R,SSBR|SERR 

SAOR — THE REAL ADD ROUTINE 

COPYRIGHT 1971* DIGITAL EQUIPMENT CORP,, MAYNARD, MASS', 
REPLACE THE TWO ITEMS ON TOP OF THE STACK 
WJTH THEIR SUM, 

SSBR THE REAL SUBTRACT ROUTJNE 

SUBTRACT THE TOP STACK ITEM FROM THE SECOND ITEM 

REPLACE THEM BOTH WITH THE DIFFERENCE, 

R0§X0 

RliXl 

R2"X2 

R3«X3 

R4tX4 

R5§X5 

SPSX6 

PC§X7 

SJGNSsO 

AIM 

81*6 

A2S8, 

B2b10, 

ACS177302 

MQil77304 

NQRS177312 

ASH«177318 

F0*X0 


ADD 

*100000, 

PSP 

ICHANGE THE 

SIGN OP 

TOP 

ITEM 

, JFDF 

FPU 






.WORD 

170001 

IIIETP 





.WORD 

172426 

II LDP 

<5P)*iP0 

IGIT 

OPERAND 

.WORD 

172026 

IIADOP 

<SP)*iP0 

i aDo 



.WORD 

174046 

IlltP 

F0i»(SP) 

ISUM 

TO 

STACK 


JMP P(R4>* 

,ENDC 

, JFNDF FPU 

MOV R4,#(SP) 

CLR -ISP) I CLEAR SIGNS 

CLP R2 I clear EXPONENTS 

CLR R3 

ASL SUSP) I SHIFT B1 

rol Ait sp } i S hift ai 

B I SB Ai*l(SP),R3 jQET Ei 

BEQ OUT IJUMP IF ZERO 

RQLB PSP I GET SI 

ASL 82<SP) ISHIFT B2 

ROL A2(SP> ISHIFT A2 

8 | SB A2*1(SP),R2 | GET E2 

8NE A2N2 lUUMP IF NOT 0 

RQRB PSP IRECONSTRUCT A1,B1 

ROR AJISPI 


ROR 

MOV 


8KSP) 

AKSPI^ISP) 


jFJRST ARG TO TOP OF STACK 
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55 

000072' 

016666 

000006 

000012 


MOV 

56 

700100' 

000550 




BR 

57 

T00102 ' 

106166 

000001 


A2N2: 

RQLB 

58 

700106 ' 

112766 

300001 

000011 


MOVB 

59 

*00114' 

112766 

300001 

000005 


MOVB 

60 

000122' 

160302 




SUB 

61 

000124' 

003005 




8GT 

62 

000126' 

016600 

000010 



MOV 

63 

000132' 

016601 

000012 



MOV 

64 

000136' 

000415 




BR 

65 

000140' 

060203 



EXP A 1 

ADO 

06 

000142' 

016600 

000004 



MOV 

67 

000146' 

016601 

000006 



MOV 

68 

Z00152' 

016666 

000010 

000004 


MQV 

69 

000160' 

016666 

000012 

000006 


MOV 

70 

000166' 

000316 




SWAB 

71 

000170' 

005402 




NEG 

72 

S00172' 

126616 

000001 


SCHKI 

CMPB 

73 

000176' 

001403 




BEQ 

74 

000200' 

005401 




N£G 

75 

000202' 

005500 




ADC 

76 

000204' 

005400 




NEC 

77 

000206' 

005702 



ECHKI 

TST 

78 

000210' 

001450 




BEQ 

79 

000212' 

022702 

177747 


SHFTS 

CMP 

80 

000216' 

003405 




BLE 

81 

000220' 

016600 

000004 



MOV 

82 

000224' 

016601 

000006 



MQV 

83 

000230' 

000456 




BR 

84 


002 




i IFDF 

85 





SHFTR ( 

MOV 

36 






MOV 

87 






MOV 

88 






MOV 

89 






MOV 

90 


00 1 




,ENDC 

91 


002 




i JFDF 

92 





SHFTR | 

.WORD 

93 


001 




.ENDC 

94 


002 




, JFNDF 

95 

000232' 

022702 

177770 


SHFTR ( 

CMP 

96 

000236' 

003431 




BLE 

97 

000240' 

005004 




clr 

98 

000242' 

005700 




TST 

99 

000244' 

100001 




BPL 

100 

000246' 

005104 




COM 

101 

000250 ' 

022702 

177760 


NCOMP 1 

CMP 

102 

000254' 

002405 




BLT 

103 

000256' 

010001 




MOV 

104 

000260' 

010400 




MQV 

105 

000262' 

062702 

000020 



ADD 

106 

000266' 

001421 




BEQ 

107 

000270' 

022702 

177770 


SHFTRL* 

CMP 

108 

000274' 

003412 




BLE 


81(SPJ,B2{SP> 

OUT | DONE 

SJGNS*1<SP) * GET S2 

#1,A2H<SP) > JNSERT NORMA), B J T 

#l,Al*i(SP) j INSERT NORMAL BIT 

R3,R2 |R2?E2bE1i R3?E1 

EXPA (JUMP IF E2>*Ei 

A2ISPI |R0 |R0«A2 

B2(SP)jRl (Rl*82 

SCHK (CHECK SIGNS 

R2,R3 »R2fE2«El|R3«E2,E2>Ei 

A4(SPJ|R0 (R0»Ai 

BlISP)|Rt J Rt ®B1 

A2ISP) i Al(SP) 

82 ( SP ) , B1 < SP ) 

P$P (EXCHANGE SIGNS 

R2 (Ei*E2 

SJ5NS*1(SPJ »P$P (SEE JF SJGNS ARE THE SAME 
ECHK (YES, CHECK EXPONENTS 

R1 (NEGATE FRACTION 

R0 
R0 


R2 


SHFTD (JUMP 

#•25 , i R2 

SHFTR (YES 

AJ(SP) ,R0 

B3,<SP),R1 

NQRMD 

EAE 


IF Ei»E2 

jIS THERE ANY POINT IN SHIFTING? 

INC, ANSWER IS OPERAND 
I'WITH THE LARGER EXPONENT 


R1,»#MQ (MOVE FRACTION TO AC,MO 
R0,##AC 

R2,##ASH (SHIFT RIGHT TO EQUALISE EXPONENTS 

##MQ, Rl, (RECOVER SHIFTED FRACTION 


»#AC,R0 


MULDIV 

073002 (IASHC R2,RF 


EAE4MULDIV 

ICHECK # OF BITS TO SHIFT 
SHFTR0 (JUMP JF NOT MORE THAN 1/2 WORD 
R4 (SET UP EXTENSION BITS 

R0 (BASED ON HIGH ORDER FRACTION 

NCOMP IJUMP IF * 

R4 (• OTHERWISE 

#•16., R2 

SHFTRl, IJUMP IF LESS THAN ONE WORD TO SHIFT 

R0, Ri (SHIFT RIGHT A WHOLE WORD 

R4,R0 (USE EXTENSION BITS 

m$,,R2 (ACCOUNT FOR SHIFT 

SHFTD 

#•0, ,R2 

SHFTR0 IJUMP IF NOT MORE THAN 1/2" WORD 




BJT9! 


#3,6, ,R2 jSHIFT LEFT 16»X 

R1 

R0 

R4 

R2 i C ount loop 

SHFTL 

R0, Rt iPUT RESULT IN R0, R1 

R4|R0 

SHFTD 

R0 | SWIFT A MJN AND B MJN 

Ri 

R2 IREDUCE EXPONENT DIFFERENCE 

SHFTR0 

AitSP),R0 lAJ>A2 

Bi<SP> ,Ri IB1+B2 

R0 

SIGNS*l(SPJ#PSP 

SUB ICO CLEAN UP SUBTRACT 

R0,#1000 

NORMD IJUMP IF NO NORMAL BIT OVERFLOW 

R0 

Ri 

R3 > INCREASE EXPONENT 

R3 I MOVE EXPONENT LEFT 

OVER IJUMP IF OVERFLOW 
R0,R3 

• SP I insert SIGN 

R3 

R3, 

Rl IROUND SUM 

R3 

OVER IJUMP JF OVERFLOW ON ROUND 

OVER 

R3| A2($P) iSTORE EXPONENT AND SION 

R1,B2(SP) | INSERT LOW ORDER FRACTION 

{SP) + IPOP SJGNS 
<SP)*|R4 

(SP}+,<SPJ* |POP FIRST ARGUMENT 

P( R4 )* I DONE I RETURN 

R5| SERR IERROR 3,2 
OUT 
3 
2 

R0 I CHECK HIGH ORDER RESULT FRACTION 

e l T9 1 1 F POSITIVE SIGN IS OK 

2TEST J CHECK FOR EERO RESULT 

R0 I GET ABSOLUTE VALUE 

Ri 

R0 

PSP I EXCHANGE SJGNS 

o 


o 





,JFDF EAE 

BIT R0,#700 

BNE BJT9A I JUMP !F NOT MORE THAN 2 TO SHIFT 

MQV R1«»#MQ |RESULT FRACTION TO AC | MQ 

M OV R0 1 PA AC 

CL,R P#NOR INORMALIZE 

SUB *#N0R|R3 jADJUST EXPONENT 

MOV #<.6,P#ASH > SHIFT TO CORRECT POSITION 

ADO #6,R3 ICOMPENSATE EXPONENT 

BUE UNDERF lJUMP IF UNDERFLOW 

MOV P#AC,R0 

MOV PPMQ.Ri | GET FRACTION BACK 

BR NORMD 

i ENDC 

BIT R0|*400 

BNE UTEST I JUMP IF NORMAL B J T FOUND 

OEC R3 IDECREASE EXPONENT 

ASL Ri I DOUBLE FRACTION 

RQL R0 

BR BJT9A ITRY AGAIN 

TST Ri ICHECK LOW ORDER PART 

i JFDF EAE 

BNE B | T9 

8R ZERO 

,ENDC 

i JFNDF EAE 

BEQ ZERO 

SWAB Ri (SAVE NORMALIZE SOME TIME 

B I SB RiiRO I MOVE BITS LEFT 

CLRB Ri 

SUB #S,,R3 I TELL EXPONENT ABOUT IT 

BR B l T9 

,ENDC 

TST R3 ICHECK FOR UNDERFLOW 

BGT NORMD JJUMP IF NONE 

J$R R5| SERR I ERROR 5,2 

BR UNDER 

, BVTE 5 

.BYTE 2 

CLR Ri lUNDERFLOW, TREAT AS 0 

CLR R3 » CLEAR EXPONENT 

BR STORE 

. ENDC 
.END 



SADR 
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ADR04.PAL SYMBOL 

table 


AC 

= 177302 

ASH 

= 177316 

A2N2 

000102R 

B I T9 

000460R 

02 

= 000012 

EC-HK 

000206R 

MO 

= 177304 

\COMP 

000250R 

OUT 

000422R 

OVER 

000432R 

R1 

=*000001 

R2 

=%000002 

R5 

=*000005 

SCHK 

000172R 

SHETL 

000302R 

shetr 

000232R 

SJGNS 

= 000000 

SP 

=*000006 

UNDER 

000532R 

UNDERE 

000522R 

2TEST 

000476R 

SADR 

000004RG 

• 

S 000540R 




000540 




41 

= 000004 

A2 

5 00001^ 

BJT9A 

000460R 

B1 

= 000006 

EXPA 

000140R 

F0 

s%000000 

nor 

= 177312 

NQRMD 

000366R 

PC 

=*000007 

P0 

S%000000 

R3 

=*000003 

R4 

r %030004 

SHET 

000212R 

shptd 

000332R 

shetrl 

000270R 

SHPTR0 

000322R 

STORE 

000412R 

sgs 

000442R 

UTEST 

000516R 

ZERO 

000534R 

$err 

s •••*•• G 

SSBR 

000000RG 


ERRORS TETECTEDI 0 
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1 




.TITLE 

SMLR05 

2 


000000' 


i CSECT 


3 




, GLOB U 

SMLR.SERRA 

4 

5 



} 

$M(,R 

THE REAL MULTIPLY ROUTINE 

6 

7 



J 

1 

SMLR 

V005A 

8 

9 



1 

1 

COPYRIGHT 1971, 0 1 SI TAW EQUIPMENT CORP,» MAYNARD, MASS', 

10 

11 



I 

CALLED 

IN POLISH MODE, 

12 



J 

REPLACES THE TOP TWO REALS ON THE STACK 

13 



J 

WJTH THEIR PRODUCT, 

14 


000000 


R0?X0 


15 


00000], 


Risxi 


16 


000002 


*2*X2 


17 


000003 

• 

R?tX3 


18 


000004 


R4*%4 


19 


000009 


R5*X5 


20 


000006 


SP®%6 


21 


000007 


PCIX7 


22 


177304 


MQ, 177304 

23 


177311 


SRf 177311 

24 


177314 


LSH«177314 

25 


000000 


F0|%0 


26 


000010 

A *8 » 



27 


000014 

8*12, 



28 


000010 

RESLT §8 , 


29 


000002 

SIGN*? 



30 


001 


• iroF 

FPU 

31 



shlr; 

.WORD 

170001 II5ETF 

32 




.WORD 

172426 IILDF (SP) + ,F0 I SET MULTIPLICAND 

33 




.WORD 

171026 MMUtF (SP)*,F0 IMUITJPLY 

34 




.WORD 

174046 | | STF P0,<*(SP) (PRODUCT TO STACK 

35 




JMP 

»{R4)* 

36 


000 


. ENDC 


37 


001 


, JFNDF 

FPU 

38 

200000' 

010446 

SH^Ri 

MOV 

R4,a(SP) 

39 

200002' 

010946 


MOV 

R5, • ( SP } 

40 


002 


, JFNDF 

EAESMULDIV 

41 

200004' 

016602 000004 


MOV 

A*0.4(SP5,S2 

42 

200010' 

006302 


ASL 

R2 J SHIFT MULTIPLICAND 

43 

000012 ' 

006146 


RQL 

•ISP) (KEEP SIGN 

44 

200014' 

009046 


clR 

•(SP) (CLEAR EXPONENT 

45 

200016 ' 

000302 


SWAB 

R2 

46 

200020' 

110216 


MQVB 

R2,»SP (KEEP MULTIPLICAND EXPONENT 

47 

000022 ' 

001507 


BEO 

ZEROl (JUMP IF ANSWER IS ZERO 

48 

200024' 

000261 


SEC 

(INSERT NORMAL BIT 

49 

200026' 

006002 


ROR 

R2 

50 

200030' 

105002 


clrb 

R2 

51 

200032' 

156602 000013 


BJSB 

A*3(SP) |R2 

52 

200036' 

005003 


CLR 

R3 

53 

200040 ' 

156603 000012 


B J SB 

A+2 ( SP ) » R3 

54 

200044' 

000303 


SWAB 

R3 
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55 

700046 ' 

006366 

000014 


56 

700052' 

00556$ 

000002 


57 

700056' 

105766 

000015 


58 

700062' 

001467 



59 

700064' 

006066 

000014 


60 

700070 ' 

005000 



61 

700072' 

005001 



62 

700074' 

016604 

000016 


63 

700100' 

001406 



64 

700102' 

012705 

000017 

B2MZ? 

65 

700106' 

004767 

000220 


66 

700112 ' 

004767 

000160 


67 

700116' 

016604 

000014 

822i 

68 

700122' 

012705 

000007 


69 

700126' 

004767 

000144 


70 

700132' 

004767 

000144 


71 

700136' 

062604 



72 


001 



73 




1 

74 


002 




75 » 

76 

77 

78 

79 

80 
81 
82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 
100 
101 
102 

103 

104 

105 

106 
107 



ASl B(SP) I SHIP? HJGrt MULTIPLIER 

ADC SJGN(SP) I GET PRODUCT SJGN 

TSTB B*USP) 

BEQ ZEROl I JUMP IF ZERO 

ROR B(SP) ) SJGN IS NOW ZERO 

C|»R R0 ICLEAR PRODUCT 

CI.R R1 

MOV B*2(SP),R4 j'GET WOW ORDER MULTIPLIER 

BEO B2Z 

MOV #15,,R5 

JSR PC»MULT0 

JSR PCiMULT I DO LAST LOW BIT FULL PRECISION 
MQV B ( S P ) ( R 4 jGET HIGH ORDER BITS 

MQV #7»R5 | THERE ARE ONLY SEVEN OF THEM 

JSR PCiMULT 

JSR PCi MULTI | GO DO THE NORMAL SIT 

AQO (SP)*,R4 | ADO EXPONENTS 

,ENOC 
EA| CODE 
i JFOF EAE 

( At*A2*2»*»16)«IBl*B2»2»*«i6) 

MOV #MQ,R4 | POINT TO MQ 

MQV #100000 « R5 | GET LEADING BIT 

MOV B*2«4(SP)|#R4 (LOW ORDER B TO MQ 

MOV B*0-4jSP),i(R4) iHlGH TO AC 

BEG ZERO IJUMP IF 0 

INC 9*LSH I GET SIGN 

RQRB ##$R 

ROL -ISP) * SAVE IT 

MQV (R4)*|«(SPJ J SAVE EXPONENT 

CLRB •$* IRIGHT JUSTIFY IT 

SWAB #$P 

MOV #?,##LSH JMOVE FRACTION LEFT 

MOV #R4,»(SP) I SAVE 82 

bis R5,*<R4) i I nsert normal bit 

MOV <R4)*|»<SP) f SAVE B1 

MOV A+2+4(SP) i#R4 ILOW ORDER A TO MQ 

MOV A*0*4(SP) i«(R4) |H|GH TO AC 

BEG ZER02 IJUMP IF 0 

inc »*lsh iGet sign 

RORB P#SR 

AQC 6 ( SP ) | GET RESULT SIGN 

MOV #R4,R3 | GET EXPONENT 

CLRB R3 

SWAB R3 

ApD R3| 4 ( SP) | GET SUM OF EXPONENTS 

MOV #7,##LSH ILEFT JUSTIFY FRACTION 

MOV <R4)*|R2 iSAVE A 1 

BJS R5|R2 l INSERT NORMAL BIT 

CLR R0 I clear product 

clr R1 

MQV {R4)*,R3 (SAVE A2 

BNE A2NZ 


-<R4>^»P0INT TO MQ 

n 




o 

' ' 



f 1 



^ ‘ ■ 

* 

V 
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109 



BR 

A2Z ) SHORT CUT 




110 


A2N2 i 

MQV 

*SP,»R4 | GET 

B1«A2 




111 



CMP 

«<R4),*<R4) 

jPOJNT TO AC 




112 



ADO 

R3|»R4 | A2, 

2' S COMP CORRECTION 




113 



TST 

R3 





114 



BPl 

A2P 





115 



ADO 

PSP,BR4 |01, 

CORRECTION 




116 


A2PJ 

MOV 

(R4)*,R1 

IHIGH PRODUCT TO R1 




117 


A2ZI 

MOV 

2 ( SP) , { R4 ) * 

IBS TO MO 




118 



BNE 

B2NZ 





119 



TST 

• ((94) | POINT TO MQ 




120 



BR 

B2Z | short cut 




121 


B2N2: 

MOV 

R2iPR4 I GET 

B2#A1 




122 



CMP 

.(R4),.<R4> 

| PO I NT TO AC 




123 



ADO 

2 { Sp ) | PR4 

182, CORRECTION 




124 



TST 

2{SP) 





125 



BPL 

B2P 1 JUMP 

' IF B2 * 




126 



ADO 

R2«»R4 |A1, 

CORRECTION 




127 


B2PS 

ADD 

<R4)+,R1 

j HIGH PROOUCT TO R1 




128 



ADC 

R0 





129 


B22! 

MOV 

R2, (R4 }* 

)A1 TO MQ 




130 



ADO 

R2iR0 





131 



MOV 

•$P*PR4 t GET 

Al*81 




132 



ADD 

<$P)*,R0 





133 



ADD 

•(R4)|R1 





134 



ADO 

R0 





135 



ADO 

»(R4) i R0 

| AC*R0 




136 



TST 

<SP> + JPOP 

82 




137 



MQV 

<SP)*iR4 

1 GET SUM OF EXPONENTS 




138 

001 


i ENOC 






139 


1 

MUL/DSV 

CODE 





140 

002 


. JFDF 

MULDJV 





141 


I 





142 



MOV 

B*2«4<SP),R5 

ILOW ORDER B 




143 



MQV 

0*0-4 ( SP ) i R4 

(HIGH ORDER 




144 



BIO 

ZERO 





145 



.WORD 

073427,1 

II ASHC #t,R4 

|GET SIGN BIT 



146 



RQL 

«<SP) ISAVE 

IT 




147 



MQV 

R4 , •( SP) 

ISAVE EXPONENT 




148 



cl«b 

PSP 





149 



SWAB 

$>SP IRIGHT JUSTIFY 




150 



.WORD 

073427,7 

II ASHC #7,R4 

ILEFT JUSTIFY 

FRACTION 


151 



MQV 

R5, • ( SP ) 

ISAVE B2 




152 



BJS 

#100000, R4 

I INSERT NORMAL BIT 




153 



MOV 

R4 , - ( SP ) 

ISAVE B1 




154 



MQV 

A*2+4{SP) ,R3 

1 GET A2 




155 



MOV 

A*0+4(SP),R2 

1 GET A1 




156 



BEQ 

2ER02 I JUMP 

’ IF RESULT TO BE 0 




157 



, WORD 

073227,1 

I) ASHC #1 , R2 

i get sign 



158 



ADC 

6 ( SP ) 1 GET 

RESULT sign 




159 



MOV 

R2 , R0 1 GET 

EXPONENT 




160 



CURB 

R0 





161 



SWAB 

R0 





162 



ADO 

R0 , 4 ( SP ) 

1 GET SUM of EXPONENTS 
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163 




.WORD 

164 




BJS 

165 




clr 

166 




CLR 

167 




TST 

168 




BEQ 

169 




.WORD 

170 




ADD 

171 




TST 

172 




BPL 

173 




ADO 

174 



A2p; 

MQV 

175 



A2Z 5 

MOV 

176 




BEQ 

177 




.WORD 

178 




ADO 

179 




TST 

180 


- 


BPL 

181 




ADO 

182 



B2P5 

ADO 

183 




ADC 

184 



8221 

MOV 

185 




ADD 

186 




.WORD 

187 




ADD 

188 




ADD 

189 




ADC 

190 




ADO 

191 




TST 

192 




MOV 

193 


001 


,ENOC 

194 

000140' 

006101 


ROL 

195 

000142 ' 

006100 


ROL 

196 

000144' 

103403 


80S 

197 

000146' 

006101 


ROL 

198 

000150' 

006100 


ROL 

199 

000152' 

005304 


OEC 

200 

000154' 

162704 000200 

NORMI 

SUB 

201 

000160' 

003436 


3LE 

202 

000162' 

022704 000377 


CMP 

203 

000166' 

002427 


BLT 

204 

000170' 

105001 


CLRB 

205 

000172' 

150001 


B J SB 

206 

000174' 

000301 


SWAB 

207 

000176' 

105000 


CLRB 

238 

000200' 

150400 


8 J SB 

209 

000202' 

000300 


SWAB 

210 

000204' 

006026 


RQR 

211 

000206' 

006000 


RQR 

212 

000210' 

006001 


ROR 

213 

000212' 

005501 


ADC 

214 

000214' 

005500 


ADC 

215 

000216' 

103414 


BCS 

216 

000220' 

102413 


BVS 



073227,7 II ASHC 47, R2 | GET At 

4100000, R2 | INSERT NORMAj, BjT 

R0 ICUEAR ACCUMULATOR 

rj 

R3 I CHECK A2 

A2Z IJUMP IF 0 

070403 l| MUL, R3,R4 | GET A2*31 

R3,R4 

H3 

A2P IJUMP |F A2 + 

»sp,r4 »bi correction 

R4,R1 J A2#B1*2*»*16 

2<SP),R4 1 62 TO MULTIPLIER 

B22 IJUMP JF 0 

070402 )| MUL R2,R4 I GET A1*B2 

2<SP),R4 

2<SP) 

B2P IJUMP |F 82 * 

R2,R4 IA1 CORRECTION 
R4,Rt |Al,*B2#2«f«16 

R0 

R2»R4 |A1 TO MULTIPLIER 

R2,R0 

070416 H MUL P|P,R4 |5ET Al*91 

(SP)*,R0 

R5,R1 ILOW ORDER A1#B1 

R0 

R4,R0 IHIGH ORDER A1#B1 

ISP)* IPOP B2 

<SP>*,R4 | OCT SUM OF EXPONENTS 

R1 ISHIFT OUT NORMAL BIT 

R0 

NORM IJUMP IF Jt WAS FOUND 

Ri 

R0 IMUST HAVE GOT IT NOW 

R4 | ADJUST EXPONENT 

#200, R4 |TAKE OUT ONE OF THE EXCESS 120'S 

UNDER IJUMP JF UNDERFLOW 

#377, R4 

OVER IJUMP |F OVERFLOW 

Rl 

R0,R1 

Rl 

R0 

R4,R0 

R0 

(SP)+ I GET PRODUCT SIGN 

R0 | INSERT IT IN RESULT 

Rl 

Rl 

R0 

OVER1 IJUMP JF OVERFLOW ON ROUND 
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217 

200222' 

010066 000010 

OUT! 

MOV 

218 

200226' 

010166 000012 


MQV 

219 

f 0P232 ' 

012605 


MQV 

220 

*00234' 

312604 


MOV 

221 

200236' 

022626 


CMP 

222 

? 0P240- 

303134 


JMP 

223 


002 


. JFDF 

224 



ZERQ2! 

CMP 

225 


001 


,ENDC 

226 

200242' 

022626 

2ERQ1I 

CMP 

227 

200244 ' 

200411 


BR 

228 

200246' 

005726 

OVER! 

TST 

229 

200250' 

012700 006003 

OVER1I 

MOV 

230 

200254' 

000403 


BR 

231 

e00256' 

012700 003405 

UNDER! 

MOV 

232 

200262' 

005726 


TST 

233 

200264' 

004567 000000G 

ECALLI 

JSR 

234 

200270' 

005000 

ZERO! 

clr 

235 

200272' 

005001 


CLR 

236 

200274' 

000752 


BR 

237 


002 


, IFNOF 

238 

200276' 

006204 

MULT! 

ASR 

239 

000300' 

103004 


BCC 

240 

200302' 

060301 

MULTI 1 

ADD 

241 

200304' 

005500 


AOC 

242 

200306' 

103406 


SOS 

243 

200310' 

060200 


ADO 

244 

200312' 

006000 

X0t 

ROR 

245 

200314' 

006001 


ROR 

246 

200316' 

305305 


OEC 

247 

200320' 

003366 


BCT 

248 

200322' 

000207 


RTS 

249 

200324' 

060200 

COVER I 

ADO 

250 

200326' 

000261 


SEC 

251 

200330' 

000770 


BR 

252 

200332' 

306204 

MUIT0I 

ASR 

253 

200334' 

103001 


BCC 

254 

200336' 

060200 


ADD 

255 

200340' 

006000 

X00! 

ROR 

256 

200342' 

006001 


RQR 

257 

200344' 

005305 


OEC 

258 

200346' 

003371 


BGT 

259 

200350' 

300207 


RTS 

260 


001 


,ENDC 

261 


000 


, ENDC 

262 


000001 


,END 


R0,RES1.T(SP) | PUT OUT ANSWER 

RiiRESLT*2«SP) 

{ SP ) +i R5 
(SP)+, R4 

<SP)*, <SPJ± | PLUSH TCP ARGUMENT 

»{R4)* IRETURN 
EAEJ MOlpDI V 

CSP)*,(SP(* |POP Bi *B2 


<SP)+,(SP)* | POP SIGN AND EXPONENT 

ZERO 

<SP>* (FLUSH SIGN 

#6003, R0 | ERROR 3,12 

ECAUL 

#3405 j R0 JERROR 5*7 

<SP)* (PLUSH SIGN 

R5,SERRA (GALL ERRQR 

R0 ( CLEAR RESULT 

Rl 
OUT 

EAE5MUL0IV 

R4 (TEST NEXT MULTIPLIER B I T 

X0 (JUMP JF IT IS 0 

R3.R1 
R0 

COVER 

R2*R0 

R0 (NOW SHIFT PRODUCT 

Rl 

R5 (COUNT LOOP 

MULT | A0A 5 N PLE*SE 

PC (RETURN TO CALLER 

R2,R0 (FIRST ADO OVERFLOWED R0 

(SHOW THIS OVERFLOW TO SHIFT 
X0 

R4 (Reduced precision multiply 

X00 

R2|R0 (USE ONLY HIGH ORDER MULTIPLICAND 

R0 

Rl 

R5 

MULT0 

PC 
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A 

= 000010 

B 

= 000014 

B2NH 

000102R 

COVER 

000324R 

ECALL 

000264R 

F0 

=7000000 

HQ 

= 177304 

MULT 

000276R 

HUUT0 

000332R 

NORM 

0 0 0 1 5 4 R 

OUT - 

000222R 

OVER 

000246R 

PC 

=7000007 

RESIT 

= 000010 

R0 

=7000000 

R2 

=7000002 

R3 

=7000003 

R4 

=7000004 

SIGN 

= 000002 

SP 

=7000006 

SR 

= 177311 

X0 

000312R 

X00 

000340R 

2 E*0 

000270R 

SERRA 

S G 

SMLR 

000000RG 

i 

= 000352R 


000352 


ERRORS CETECTEDI 0 



B2Z 000U6R 

L$H = 177314 

MULTI 000302R 

OVERl 0&0250R 

R1 =7000001 

R5 =7000005 

UNDER 000256R 

2ER01 000242R 
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DVR05 i P At 
1 

2 000000 ' 
3 

. 4 

5 

6 

7 

8 
9 


10 



11 



12 



13 



14 



15 



16 


000000 

17 


000001 

18 


000002 

19 


000003 

20 


000004 

21 


000005 

22 


000006 

23 


000007 

24 


177304 

25 


177312 

26 


177314 

27 


177316 

28 


000000 

29 


000001 

30 


000010 

31 


000014 

32 


000014 

33 


001 

34 



35 



36 



37 



38 



39 



40 


000 

41 


001 

42 

000000' 

010446 

43 

200002 ' 

010546 

44 

200004 ' 

005000 

45 

200006 ' 

005001 

46 

200010' 

005046 

47 

200012' 

006366 

48 

200016' 

006116 

49 

200020' 

005046 

50 

200022' 

156616 

51 

200026' 

001452 

52 

200030 ' 

156600 

53 

200034' 

000300 

54 

200036' 

000261 


SQVRi 
$DVR 5 

000012 

000015 

000014 


.TITLE SDVR05 
, CSECT 

,GL09L $QVR,SERRA 

SOVR THE REAL DIVIDE ROUTINE 


SOVR V005A 

COPYRIGHT 197J, DIGITAL EQUIPMENT CORP.i MAYNARD, MASS', 
CALLED IN THE POLISH MODE 

THE NUMERATOR JS THE SECOND ITEM ON THE STACK 
AND THE DENOMINATOR JS ON TOP, 

TAKES THE QUOTIENT AND PUTS IT ON TOP 
OP THE STACK IN THEIR PLACE 
R0»X0 
*11*1 
R2lX2 
R3*X3 
R4*X4 
R5sX5 
SP§X6 
PCfX7 
MQB477304 
N0R«1773t2 
LSHS177314 
ASH *177314 
F0*X0 
FlsXl 
Dt8, 

Nsl2, 

Qsl2, 
i JEDE 
• WORD 
.WORD 
.WORD 
.WORD 
.WORD 
JMP 
,ENDC 
, JFNDF 
MOV 
MOV 
CL r 
CL r 
CL r 
ASL 
ROL 
CLR 
B I SB 
BED 
B I SB 
SWAB 
SEC 


FPU 

170004 

MSETF 


i get oj visor 

172526 

IILDF 

<$P)*»F1 

172426 

HLDF 

(SP>+,F0 

I GET DIVIDEND 

174401 

iioivf 

Fl,F2 IDI VIDE 

1 QUOTIENT TO STCK 

174046 

P(R4>* 

M3TF 

F0,-(SP) 


FPU 

R4 , • ( SP ) 
R5,*(SP) 
R0 
R1 





•ISP) 

N*0»2 < SP ) iSHIFT NUMERATOR 

PSP I GET NUMERATOR SIGN 

«<sp) 

N*t < SP ) . PSP | GET NUMERATOR EXPONENT 

ZERO lJUMP JF NUMERATOR IS ZERO 

N { SP ) , R0 

R0 ILEFT JUSTIFY NUMERATOR FRACTION 

| Insert normal BIT 
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55 

700040' 

006030 



RQR 

56 

700042' 

156630 

000017 


8 1 SB 

57 

730046' 

156601 

000016 


B I SB 

58 

700052' 

300301 



SWAB 

59 

700054 ' 

005002 



clr 

60 

700056' 

305003 



CLR 

61 

700060' 

006366 

300013 


ASL 

62 

700064' 

005566 

000002 


AQC 

63 

700070' 

156602 

000011 


BISS 

64 

700074' 

00143], 



BEQ 

65 

700076' 

160216 



SUB 

66 

700100' 

005002 



CL^ 

67 

700102' 

156602 

300010 


8 1 SB 

68 

700106' 

000302 



SWAB 

69 

700110' 

000261 



SEC 

70 

700112' 

006002 



ror 

71 

700114' 

156602 

000013 


8 JSB 

72 

700120' 

156603 

000012 


B I SB 

73 

700124' 

000303 



SWAB 

74 

700126' 

020002 



CMP 

75 

700130' 

103440 



BLO 

76 


002 



, JFNDF 

77 

700132' 

101034 



SHI 

78 

700134' 

020103 



CMP 

79 

700136' 

101032 



BHI 

80 

700140' 

001034 



BNE 

81 

700142' 

005066 

000014 


CL« 

82 

700146' 

005216 



INC 

83 

700150' 

005005 



clr 

84 

700152' 

000445 



BR 

85 


001 



,ENDC 

86 


002 



,jfof 

87 





BHJS 

88 


001 



iENQC 

89 

700154' 

022626 


ZEROS 

CMP 

90 

700156' 

000415 



BR 

91 

700160' 

005726 


DCHK! 

TST 

92 

000162' 

012700 

004003 


MQV 

93 

700166' 

000406 



BR 

94 

700170' 

005746 


0VER1I 

TST 

95 

700172' 

012700 

003003 

OVER! 

MOV 

96 

700176' 

000402 



BR 

97 

700200' 

012700 

002405 

UNDER 1 

MQV 

98 

700204' 

005726 


ECALII 

TST 

99 

7.00206' 

004567 

000000G 


JSR 

100 

700212' 

005066 

000010 

ECALUS 

clr 

101 

700216' 

005066 

000012 


clr 

102 

700222' 

000445 



BR 

103 

700224' 

006000 


DLOW! 

ROR 

104 

700226' 

006001 



RQR 

105 

700230' 

005216 



INC 

106 


002 



, JFNDF 

107 

700232 ' 

012704 

000011 

OHI ! 

MOV 

108 

7 AHA? 6 ' 

004767 

000104 


JSR 


R0 

N*3(SP)«R0 

N*2(SP>,Rl 

R1 

R2 

R3 

0 1 SP ) | SWIFT DENOMINATOR 

2(SP) | GET RESULT SIGN 

D*1(SP)»R2 | GET DIVISOR EXPONENT 

DCHK (JUMP IF DIVISOR JS ZERO 
R2»PSP | SUBTRACT EXPONENTS 
R2 

Q(SP) |R2 j GET HIGH ORDER FRACTION 

R2 

I INSERT NORMAL BIT 
R2 

D*3(SP) »R2 
D*2(SP)#R? 

R3 

R0,R2 (COMPARE HIGH NUMERATOR AND DENOMINATOR 

DH I (JUMP IF DENOMINATOR HJGH 

EAE4MUI.DIV 

DLOW (JUMP IF DENOMINATOR LOW 

RliR3 (COMPARE LOW ORDER PARTS 

DLOW 
DHJ 

0 f SP > (QUOTIENT FRACTION JS * 

PSP | SUMP EXPONENT 

R5 

FLOAT 

eaeimuloiv 

DLOW (JUMP IF DENOMINATOR LOW OR SAME 

(SP)*,(SP)6 (FLUSH EXP AND SIGN 
ECALLI 

(SP)* (FLUSH EXP 

#4003, R0 (ERROR 3,8 

ECALL 

•(SP) (FAKE SIGN 

#3003, R0 JERROR 3,6 

ECALL 

#2405, R0 (ERROR 5,3 

(SP)* (FLUSH SIGN 

R5,$ERRA 

0*0.4 ( SP ) (RETURN 0 

0*2.4 ( SP ) 

RTN 

R0 (HALVE NUMERATOR (C«0) 

R1 (TO ENSURE THAT N<D 

PSP (COMPENSATE EXPONENT 

eaesmuldiv 

#9 , i R4 (GO DO FIRST 9 QUOTIENT SITS 
PC,OIVk^ 
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AL 





109 

000242' 

110566 

000014 


MOVB 

110 






111 

f 8024 6 ' 

205704 



TST 

112 

703250 ' 

001432 



BEQ 

113 

000252' 

005035 



CLR 

114 

703254' 

300404 



BR 

115 

700256' 

812704 

000020 

NQT0 ; 

MOV 

116 

700262' 

804767 

800060 


JSR 

117 


001 



,ENDC 

118 


002 



,JPDP 

119 




OHn 

CLC 

120 





ROR 

121 





ror 

122 





ROR 

123 





RO R 

124 





ROR 

125 





RQR 

126 





RQR 

127 


001 



,ENDC 

128 


002 



, IFDF 

129 





MOV 

130 





MQV 

131 





MOV 

132 





MOV 

133 





TST 

134 





MOV 

135 





MQV 

136 





MOV 

137 





TST 

136 





A SR 

139 





SUB 

140 





DEC 

141 





MQV 

142 





CMP 

143 





NEC 

144 





MOV 

145 





ADD 

146 





clr 

147 





SUB 

148 





MOV 

149 





MQV 

150 





MQV 

151 


001 



,ENDC 

152 


002 



• IFDF 

153 





MOV 

154 





MQV 

155 





.WORD 

156 





MOV 

157 





MOV 

158 





.WORD 

159 





ASR 

160 





SUB 

161 





.WORD 

162 





.WORD 



R5,Q{SP> j SAVE ALU HIGH ORDER Q FRACTION 

I EXCEPT NORMAL SIT 
R4 t SEE JF DONE 

NQT0 (N0, NUMERATOR NOT 0 

R5 ) ALL THE REST OF THE QUOTIENT IS EERO 

FLOAT 

#16,,R4 |GO DO 16 MORE BITS 
PC.DIV1 

eaesmuldiv 

R0 J ENSURE N(JM , AND DENOM , * 

Rt 

R2 ILOW ORDER R1 AND R3 ARE 0 

R3 

R3 

R0 

R1 

EAE 

#MQ,R5 (POINT TO MQ 
Rii*R5 (NUMERATOR TO AC.MQ 
R0| • ( R5 ) 

R2i«(R9> |(*+S«B)/C 

(R5) + (POINT TO AC 
(RS)*^! (KEEP REMAINDER 

(R5)+,R4 (KEEP QUOTIENT 


R3,*R5 

(GET Q*D 



■ <R5) 

(POINT 

TO MO 



R1 

(SCALE 

R 



Ri,-(R5) 


|Q*D*R 



•PASH 





R2i«(R5> 


( {Q*0*P(/C 



(R5(*. (R5(* 

(MO 



•R5 





#2,*#ASH 


(MULT BY 4 



R4 j ■ ( R5 > 


(04 ( QtO*R ) PS/C 



• #NOR 

I NORMAL I EE 



•PNOR»*SP 

(APPLY TO EXPONENT 


#■6, •#L sh 

(POSITION NORMAL 

BIT 


<R5)*«Q<SP) 

(STORE QUOTIENT 



•R5, R5 





MUIOSV 





R0,R4 

(NUMERATOR TO DIVJDENO 



R1.R5 





071402 

1 1 

D J V R2,R4 

( ( A+S«*B)/C 

R5,R1 

(SAVE 

REMAINDER 



R4,R0 

(SAVE 

QUOTIENT 



070403 

1 ( 

MUL R3|R4 

(GET 

Q*D 

R1 

(SCALE 

R 



R1.R4 

( q*d*r 




073427**1 

(J ASHC 

**1» 

R4 (SCALE 

071482 

(1 

DJV R2.R4 

(GET 

(Q*D"R)/C 
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163 




neg 

164 




.WORD 

165 




ADO 

166 



NBTST I 

.WORD 

167 




8MJ 

168 




DEC 

169 




BR 

170 



N8IT! 

.WORD 

171 




MOV 

172 


001 


,ENDC 

173 

000266' 

012604 

FLOAT! 

MOV 

174 

000270- 

062704 300200 


ADO 

175 

030274' 

003741 


BLE 

176 

000276' 

022704 000377 


CMP 

177 

000302' 

002733 


blt 

178 

000304 ' 

110466 000013 


MQVB 

179 

000310' 

006026 

SIGNS 

RQR 

180 

000312' 

006066 000010 


RQR 

181 

000316' 

006005 


ROR 

182 

000320' 

005505 


ADC 

183 

000322' 

005566 000010 


ADC 

184 

000326' 

010566 000012 


MOV 

185 

000332' 

103716 


BCS 

186 

000334' 

102715 

RTNS 

evs 

187 

000336' 

012605 

MOV 

186 

000340' 

012604 


MQV 

189 

000342' 

022626 


CMP 

190 

000344' 

000134 


dMP 

191 


002 


i JFNDF 

192 

000346' 

006305 

DIV1S 

ASL 

193 

000350' 

006301 


ASL 

194 

000358' 

006100 


ROl 

195 

000354' 

103406 


BCS 

196 

000356' 

020200 


CMP 

197 

000360' 

101010 


8 W I 

198 

000362' 

103403 


BLO 

199 

000364' 

020301 


CMP 

200 

000366' 

101005 


BHI 

201 

000370' 

001407 


BEQ 

202 

000372' 

160301 

GO: 

SUB 

203 

000374' 

005600 


SBC 

204 

000376' 

160200 


SUB 

205 

000400 ' 

005205 


INC 

206 

000402' 

005304 

NOGOS 

DEC 

207 

000404' 

003360 


BGT 

208 

000406' 

000207 


RTS 

209 

000410' 

005205 

NEQDS 

INC 

210 

000412' 

000401 


BR 

211 

000414' 

006305 

EQ2S 

ASL 

212 

000416' 

005304 

EQl ! 

DEC 

213 

000420' 

003375 


BGT 

214 

000422' 

005204 


INC 

215 

000424' 

000207 

RTSS 

RTS 

216 

o 

001 


,endc 


ASHC 


R4 J{R*Q*0)/C 

073427, *14, If ASHC 

R0,R4 jQ*(R«Q*D)t§/C 

073427,1 II ASHC 

MBIT J CHECK FOR NORMAL SIT 

«SP iCOMPENSATE EXPONENT 


«14,,R4 | UNSCALE 
41 , R4 | SW I FT 


NBTST |GO AGAIN 

073427, -7 i | ASHC #*8,R4 JALIGN FRACTION 

R4,Q(SP) i STORE HIGH ORDER 


(SP)*,R4 iPUSH UP EXPONENT 

#200, R4 i ADO IN EXCESS 200 
UNDER I UNDERFLOW 
#377, R4 

OVER lOVERFLOW 

R4,Q*lt2(SP) j INSERT EXPONENT IN RESULT 

(SP)* JINSERT QUOTIENT SJGN 
Q*0»4 ( SP ) 

R5 

R5 JROUND 

Q*0»4 ( SP ) 

R5,Q+2»4(SP> iJNSERT LOW ORDER FRACTION 

OVER1 

OVER1 

(SP)*,R5 

(SP)*,R4 

($P)+, (SP>* iFLUSH FIRST ARGUMENT 

»(R4>* 

EAESMyLOIV 

R5 | SHIFT QUOTIENT 

R1 ISHIFT NUMERATOR 

R8 

GO J GUARANTEED TO GO 

R2,R0 lOOMPARE HIGH DIVISOR AND DIVIDEND 

NOGO IJUMP JF DIVISOR BIGGER 

GO IdUMP JF DIVISOR SMALLER 

R3,R1 ICHECK the LOW ORDERS 

NOGO 

N|QD IdUMP IF NUMERATOR sDENOMJNATOR 

R3,R1 INsN.D 

R0 

R2,R0 

R5 | INSERT QUOTIENT BJT 

R4 | COUNT LOOP 

DJV1 
PC 

R5 I INSERT LAST 1 BIT IN QUOTIENT 

EQ1 

R5 IFINISH OUT QUOTIENT WITH 0'S 

R4 

EQ2 

R4 I flag no MORE NUMERATOR 

PC IRETURN TO CALLER 

w 




SDVR0* # ACYlt , 620 22-AUG-72 Ut«i PACE 5 

OVR05.PAL 


217 

218 


080 

800001 


,ENOC 

,ENO 



SOVK05 PACY11.620 22" 

OVR05.PAL SYHBOU 

'AUG-72 
T ABI.E 

11 | 41 PAGE 6 

ASH 

s 177316 

0 

= 0000J.0 

OJV1 

000346R 

OUOW 

000224R 

EQl 

0H0416R 

EQ2 

000414R 

n 

=*300001 

GO 

000372R 

N 

= 003014 

neqd 

000410R 

NOT0 

003256R 

OVER 

000172R 

Q 

= 000014 

RTN 

000336R 

R1 

=*000001 

R2 

=*000002 

R5 

=*003305 

SIGN 

000310R 

ZERO 

0 0 0 1 5 4 R 

SDVR 

000000RG 


DCRK 

000160R 

DM I 

000232R 

ECAU 

000204R 

ECALll 

000212R 

FLOAT 

000266R 

F0 

3*000000 

LSH 

= 177314 

MQ 

s 177304 

NQGO 

000402R 

NOR 

= 177312 

OVER1 

000170R 

PC 

3*000007 

RTS 

000424R 

R0 

3*000000 

R3 

=*000003 

R4 

3*000004 

SP 

=X000306 

UN6ER 

000200R 

SERRA 

3 ••••«« G 

• 

3 000426R 


000426 


ERRORS CETECTEOJ 0 



SDVR0V J ACY11.620 22-AUG-72 il?U 

OVR05.PAL 


PACE 5 


217 

218 


000 

000001 


,ENOC 
t end 



SOVH05 MCY11.620 22-AUG-72 

OVR05.PAL SYMBOL TABLE 


11 ; 41 PAGE 6 


ASH 

= 177316 

D 

= 000010 

OJV1 

030346R 

otow 

000224R 

EQ1 

0O0416R 

E02 

000414R 

FI 

= 5(300001 

GO 

030372R 

N 

= 003014 

NEOO 

000410R 

NOT0 

0 0 3 2 15 6 R 

OVER 

000172R 

Q 

= 000014 

RTN 

000336R 

R1 

= 9(0000 01 

R2 

=%000002 

R5 

= 9(00030 5 

SIGN 

000310R 

2ERO 

000194 R 
000426 

SDVR 

000300RG 


DCHK 

000163R 

OH! 

000232R 

ECAU, 

000204R 

EGALll 

000212R 

FLOAT 

000266R 

F0 

s%000000 

LSH 

= 177314 

MQ 

s 177304 

NOGO 

000402R 

NOR 

2 177312 

OVER1 

000170R 

PC 

*%000007 

RTS 

000424R 

R0 

s%000000 

R3 

3X000003 

R4 

:%000004 

SP 

3X000006 

UNDER 

000200R 

SERRA 

s #**•*• G 

• 

s 000426R 


ERRORS CETECTEO* 0 



LNKXU V021 22*AUG*72 Hi<l 

#OBKEBA/T J1744e,DBKE3A«#BKEBA, AOR04,Ml.R05,DVR05,/E 


LOAD HAP 


TRANSFER ADDRESS: 002001 
LOW LIMIT* 015703 
HIGH LIMIT! 017 440 
••«•••««« * 

MODULE h A I NOE 


SECTION ENTRY 
<, ABS . > 

fERR 

JERRA 

< > 

MODULE f ADR 
SECTION ENTRY 
< > 

I ADR 
fSBR 


MODULE JMLR05 
SECTION ENTRY 
< > 

f MLR 


MODULE IDVR05 
SECTION EN try 
< > 

f Dvr 


ADDRESS 

SIZE 

000000 

013414 

013420 

000000 

015700 

000000 

ADORESS 

SIZE 

015700 

015704 

015700 

000540 

ADDRESS 

SIZE 

016440 

016440 

000352 

ADDRESS 

SjZE 

017012 

017012 

000426 


RUN-TIME» 2 SECONDS 
2K CORE USED 



o 





